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20 PROGRAMMI PER VIC 20 

20 programmi assolutamente nuovi ed inediti per disegnare, 

calcolare, suonare, giocare, catalogare, ricordare 

e studiare col computer... ma soprattutto 

per imparare come funziona e come si programma il tuo VIC 20. 


X» 


Nei prossimi volumi 
altri programmi per altri 
computer: Commodore (Py 
64. Sinclair Spectrum p 

e gli altri apparecchi ; 

attualmente presentì 
sul mercato. 
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20 programmi didattici che offrono, assieme al 
divertimento, una chiara, esauriente ed 
appassionante guida alla programmazione in 
BASIC. 

Non più la cieca e passiva digitazione di 
programmi trovati qua e là sulle riviste, senza 
riuscire a capire la logica ed il linguaggio della 
macchina: per la prima volta, attraverso 
l'esame dettagliato della costruzione del 
programma (analisi dei problema, diagrammi di 
flusso, traduzioni in BASIC, listati), chi 
possiede il VIC 20 può acquisire finalmente, 
senza fatica e nel modo giusto, la capacità di 


usarlo per elaborare con entusiasmante 
disin voltura altri programmi utili e divertenti, per 
mettere alla prova la propria creatività e 
fantasia. 

Perché una macchina è utile solo se ci “serve 
e se impariamo ad usarla nel modo giusto. 


1 20 programmi descritti ed illustrati nel volume 
sono disponibili su una cassetta che potrà 
essere richiesta versando l'importo di L. 12 600 
sul c.c.p. n. 135004 intestato a Armando 
Curdo Editore - Servizio Clienti, specificando la 
causa/e del versamento. 
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AVVERTENZE: 

Numerosi lei tori pongono domande 
molto simili tra loro, (ili interessati, 
pertanto, sono pregali di individuare le 
risposte ai loro quesiti tra le tante pub- 
blicate che, per j| motivo esposto, sono 
prive del nome dei richiedenti. 

i 

Colori indesidcruti con le routine 
di loma. 

□ Il programma “SOLIDI IN ALTA Hl- 
SOLUZI0NL" (n. 14 di C.C.C.) una voi- 
la lanciato presenta lo sfondo non costitui- 
to da un sottile reticolato, ma da strisce 
verticali verdi e rosse larghe quanto un ca- 
rattere. t ome mai? 

• La colpa non è del programma bersi 
dell'uscita video del Commodore 64. 
Quando due puntini (pixd)di diverso co- 
lore sono contigui provocano il fastidio- 
so effetto che lamenti. 

Cioè dovuto al fatto che il Commodo- 
re 64 non è un computer “professionale’ \ 
ina un Home computer dalle qualità ine- 
vitabilmente più modeste di un computer 
grafico, t 'n elaboratore che non presen- 
tasse rincori veniente accennato costerebbe 
molto di più e richiederebbe, tra l'altro, 
l’uso di un monitor ad alta definizione 
Per limitare il difetto senza rinunciare 
all'output grafico in Hi-Res, osserva i 
grafici in bianco e nero, mutando al mi- 
nimo la manopola dd colore dd 7 V. 

Caratteri grafici poco leggibili 

D Perché nei vostri listati non usate un 
codice per ì caratteri grafici come fanno te 
altre ri uste? 

• Come puoi notare, da un pò di tempo 
pubblichiamo su ogni numero della rivi- 
siti una intera pagina che non solo indica 
i caratteri grafici, ma anche il modo di 
ottenerli, Commodore Com poter Club, 


infatti, preferisce... "invogliare" il lettore 
ad interpretare correttamente i program- 
mi pubblicati perché, credetemi, anche in 
questo modo si impara a programmare: 
prestando la massima attenzione alle 
pubblicazioni. 

Del resto, hai notato che per i lettori. .. 
pigri a stiamo organizzando? Non solo 
abbiamo lanciato sul mercato una rivista 
su casse Uta { Commodore Club) ma, ad- 
dirittura, i programmi pubblicali sulla 
rivista che stai leggendo... 

Azimut, dii era costui 

□ Mi hanno detto che sul registratore c’è 
un azimut da regolare nel caso non si rie- 
sca a caricare un programma, ( he cosa è? 
• 1. 'azimut è l'altezza cui è necessario 
posizionare la testina dt lettura/ scrittura 
allo scopo di allinearla correttamente 
con la pista magnetica del nastro. Nei 
numeri scorsi* comunque, abbiamo piti 
volte dato indicazioni su come compì. ir- 
ta rsi in questi casi. 



Utility in basic 

or 

□ ( urne realizzar? tu (unzione di renum?- 
ra/ionc di linea e la fusione Ira due pro- 
grammi Basic? 

* Sul N. 15 di C.C.C'. sono state pubbli- 
cate ben scile routine di semplice digita- 
zione che qui riassumo: 

* Rcnumher. Consente di re nume rare 
nell’ordine desiderato qualsiasi program- 
ma basic, 

* Append. Consente di “fondere" due 
programmi l’uno di seguito alTaltro. 

« I ind. Effettua una ricerca, all’interno 


di un programma, ed evidenzia le lince 
Basic in cui sono presenti particolari 
istruzioni, comandi variabili eccetera. 

• Dump. Dopo aver latto girare un pro- 
gramma quahiasi., elenca le variabili lino 
a quel momento interessate dall’elabora- 
zione, Utile per rintracciare eventuali er- 
rori di programmatori (debug), 

• DeJete, Cancella le ultime linee di un 
programma Rasic 

• GOSUR calcolato Consente di utiliz- 
zare una sintassi dei tipo: GOSIJB 
(A*(B/(C+D)). 

• GOStJR LABEL. Come (0 consente e- 
spressione simile a: GQSUB PRIMA 
ROUTINE esimili 



64 impazzito 

□ \ volte i! mio C ommodore tt4 sembra 
ì lupa// ire e ciò avviene senza iuta ragione 
plausibile. \ che cosa può esser dovuto un 
simile compari a me Dio? (segue elenco di 
malfunzionamenti), 

• Rispondiamo elencando quelle che, a 
nostro parere, possono essere le cause di 
anomali comportamenti: 

* Saldature “fredde", Alcuni esemplari 
(computer, drive* stampanti eccetera) 
contengono al loro interno componenti 
elettronici saldati al circuito stampato m 
modo non perfetto. 

Quando st accende il computer tali c- 
lementi sono freddi od il contatto elettri- 
co risulta, per pun i caso* assicurato. I >n- 
po un po’ di tempo, pero* il calcolatore si 
riscalda e dilatazioni termiche delle sal- 
dature possimi » generare distacchi acci- 
dentali tra gli elementi inai fissati con 
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regnante di qualche tempi» fa sole- 
va dire che, per governare senza proble- 
mi , era sufficiente accontentare il popolo 
con tre "effe"? Festa, Farina e Forca. 

Era infatti convinto, c purtroppo gli 
eventi gli davano ragione, che regalando, 
di tanto in tanto, banchetti l urna diali, 
magari, da pessimo vino) o consegnando 
gratis del pane (meglio se in tempi di ec- 
cessiva produzione di grano) o semplice- 
mente torturando e impiccando delin- 
quenti nella pubblica piazza, i sudditi ap- 
prezzassero simili iniziative e trascuras- 
sero problemi ben piu gravi , 

he cosa c 'entra tutto questo con la 
nostra rivista? E' presto detto. Si affer- 
mava, tempo fa, che l'utente medio di 
personal computer non voleva altro che 
giochi, meglio se tutti eguali, meglio se 
capaci di attanagliare il giocatore al joy- 
stick per molte ore al giorno. Convinti, 
invece, che l'utente medio è di tipo "uma- 


no" e sicuri che durante la giornata svol- 
ge attivila "pesanti" abbiamo, tempo ad- 
dietro. proposto timidamente argomenti 
un po' diversi, di didattica, matematica, 
linguaggio macchina ed altre cose del ge- 
nere. li successo di tale iniziativa fu im- 
mediato e richieste di continuare sulla 
strada intrapresa continua senza sosta. Il 
continuo aumento della tiratura può, a 
onor del vero, esser dovuto anche ad altri 
fattori a volte di semplice determinazio- 
ne, a volte di natura oscura. 

na cosa e certa; nel futuro pubbliche- 
remo soltanto ciò che i lettori desiderano 
e tra i lettori ci sei tu, con le tue esigenze, i 
tuoi desideri, e (non vergognarli ad am- 
metterlo ) con le lue incertezze e dubbi 
non risolti. 

E stai tranquillo che se invìi la scheda 
dell'ultima pagina, specificando le tue 
esigenze, verrai accontentato, 

Ab-ss;hiul ro Ite S linone 
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PROGRAMMO IN 
BASIC 


COME SCEGLIERE UN 
COMPUTER 


It firguaggta dal futuro -fi un 
manuale rapido e completo di 
Ciìzio Merft 
pagg 224 (t 9QQQ) 

Il Basic, attualmente II 
linguaggio più conosciuto - 
ad ano an' un lizzo su qua luna no 
(ipo di macch-na e in 
pascolare sui personal e gli 
home-comp urtar può essere 
appreso in poche oro con 
l'ausilio di questo agrle 
manuale. 


Guida pratica por t'acquisto di 
un mini q di un mieto computer 
professionale di Michela 
D.\ Pisa 

pagg 160 ri, 6.000) 

Quale modello scegliere tra gl 

oltre GOQ computer 

com me re razzati in Italia 9 La 

conoscenza delle 

cara tremisi iche dello tane 

macchine e indispensabile Con 

un approccio a "menu" 

I Autore vued essere guida 
proprio in questa fase 


UTILITY E ROUTINE 
PER IL 

COMMODORE 64 


BASIC PER LO 
SPECTRUM 


or Gloriano Rossi 
pagg 192 (i, 9. 000) 

L'esecuzione di una istruzione 
BASIC può richiedere diverse 
Centinaia di passi di programmi 
in linguaggio macchina La 
dimensione dei programmi £ 
ciò ette inumidisce 
maggiormente i 'utilizzatore 
medio ó< Commodore: amia lu 
dà questo le sio chiunque potrà 
affrontare senza problemi il 
processo di scrittura di un 
programma 


dr Ma unno Anena e Cimo Merli 
pagg 192 (L. 9,000) 

Un libro per quanti hanno 
acquistato il computer ZX 
Spectrum della Sinclair e 
intendono sfruttarne appieno 
[ulte Incapacità, dal '‘hardware 
alla programmazione m 
assembiy | linguaggio 
macchina). 
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I volumi, che sono comunque m vendita nello migliori librone di tutta Italia, 
posso nc anche essere r chiesti direttamente all Editore. 

Importante- l'ordine minimo dovrà essere di L. 15.000. 




Edizioni A CANTHUS 


VIALE GRAN SASSO. 23 - 20131 MILANO 
inviatemi i seguenti volumi: 


Titolo 


quantità 


prezjo unitario 


Alfredo Cererà 
Mitici- Di Pisa. Danit'a Giacerne!' 


DIZIONARIO 
DELL’ 
INFORMATICA 


Vocabolario Inglese “italiano 


ii*- ■ 

Co#|WTW 


DIZIONARIO 

DELL’INFORMATICA 

Vocaholano Inglese-Italiano di 
Coltrerà Di Pisa. Giacomelli 
pagg. 383 (L 25 000) 

Una strumento indispensabile 
per etti si avvicina al mondo 
deil inlcHOTtanca e per gli 
specialisti che hanno l'esigenza 
di accedere alia dinamica 
letleralura anglosassone. 


spese postali 


L. 2.000 
tolale L* 


Pagherò contrassegno il dovuto (piu L. 2.000 per contributo spese postali) al ricevimento. 
Potrò restituire i libri entra 0 gioì ni se non saranno di mio gradimento e avere il rimbor- 
so immedralo 

COGNOME 


NOME 



VIA 


N. 

C.À.P 

CITTA 


firma 



DATA 




Scrivere tn stampatello e spedire in busta chiusa 
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Computer Club ne parla tutti innsi.lx. 
abbiamo sezionato, analizzalo, smontai» 

, rimontato mille volte. Ma lui. « Com- 
modore 64 . rimane sempre al centro delle 
nostre attenzioni. E ««ni volta é come 
scoprirlo «li nuovo. Ecco perche in questo 
numero abhiamu deciso di proporre alcu- 
ne 'foto tessera’ del Commodore 64: 
frammenti, segnali, pose della nostra 
macchina ritratta da diverse «npilaziom 
all'obiettivo dei fotografo. i>al ritento 
§j A*iV interno* Dall'olio e di profilo. 
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I programmi più interessanti spesso sono 
molto lunghi, un listato pubblicato è faticoso 
da leggere,.. 

Commodore Compier Club vi offre un'al- 
ternativa: le cassette con tutti i programmi 

pubblicati sulla rivista. f ' 

Ogni nastro contiene il software di un nu- 
mero di Commodore Computer Club a un 
prezzo incredibilmente basso: solo 5.800 lire 
( + 1.000 lire per spese di spedizione). 

Riceverete le cassette direttamente a casa 
Vostra, utilizzando il coupon qui a fianco. 


Desidero ricevere le cassette con il 
software pubblicato sui seguenti numeri 
di Commodore Computer Club 

Importo L „ 

spese dì spedizione L I 000 

Totale L ; I 

□ ho versato r importo sul c/c postafe n | 
30426209 {allego fotocopia della ricevu- 
ta di versamento) 

□ accludo assegno non [rasi, n 

(banca ) 

intestato a Systems Editoriale, v.ie Fa- 
magosia 75, 20142 MILANO _ 

nome 

cognome ... ... H 

via P ■ 1 ■■■■■■»•■ ■ **4'+ + + P- + + + + tìi +■§#•-“““■ *-B* - f + 4-4-4-4 4 -# 

CAP/città ....... 

Ritagliare e Spettro in busta chiusa a Systems 
Ertritifffilr- Wpf JS= y ?0t4 ? Milano 

Abbonatevi a Comnwlflft COrtipuisrClut 










■adventures/ii 


“KILLWOLF 
WITH SWORD” 

di Giuliano Boschi 1 

La lingua non è un ostacolo insormontabile 
negli adventures: i vocaboli usati sono in 
numero limitato e di facile apprendimento. 


sdiamo quali sono i maggiori 
problemi che possiamo incontrare 
nello svolgimento di un adventure. 

I verbi 

Sono l'ostacolo maggiore: non è 
possibile dare delle regole precise, 
in quanto ogni programma può ado- 
perare dei verbi particolari, al posto 
dei sinonimi più usati. Per esempio, 
in The golden baton. per tagliare dei 
rami, non si usa il solito CUT, bensì 
CHOMP. che letteralmente significa 
fare legna . 

L'unico consiglio è quello di con- 
sultare, nel miglior modo possibile, il 
vocabolario italiano-inglese e prova- 
re tutte le possibili traduzioni dei ver- 
bo che vogliamo usare per realizza- 
re una certa azione Alla fine di que- 
sto articolo, troverete un piccolo vo- 
cabolario nel quale sono inseriti i 
verbi più comunemente usati negli 
adventures. 

Particolare attenzione meritano i 
termini che vengono usati per trasfe- 
rirsi da un luogo ad un altro: in gene- 
re si usano le iniziali della direzione 
geografica (East, North, West 
South, ed eventualmente le direzioni 


intermedie, NE. SO, etc,), verso la 
quale vogliamo dirigere, o UP e 
DOWN per su e giù. A volte, invece, 
bisogna digitare ENTER, GO, 
CL1MB, seguiti dal nome del posto in 
cui si vuole andare (es. ENTER HO- 
ME, GO CAVERN, CU MB ROPE) 

Alcuni capi di vestiario vanno in- 
dossati in particolari occasioni. In Ar- 
row ofdeath (pan 2). bisogna indos- 
sare un'uniforme per non essere uc- 
cisi da una guardia; in Message from 
Andromeda , solo portando dei 
guanti possiamo raccogliere dei fun- 
ghi, altrimenti pericolosamente 
mortali. 

Molto usato è anche il verbo 
WAIT, aspettare, come ad esempio, 
in The hobbit . 

Cose e persone vanno sempre 
esaminate (es. EXAMINE TABLE) 
Troveremo cosi altri oggetti, o ac- 
cessi a luoghi che altrimenti non 
avremmo mai scoperto. 

Frasi complesse 

Non tutti i programmi sono costruì 
ti con la stessa struttura logica: in 
alcuni potrebbe essere sufficiente 
digitare KILLWOLF. avendo giàpre- 
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cedentemente trovato una spada, 
per poter uccidere un lupo 

\n adventures piu sofisticati e or- 
mai sono molti, bisogna invece es- 
sere più precisi. Dovremo digitare, 
per esempio, KILl WOLF WITH 
SWORD (uccido il lupo con la spa- 
da), per ottenere il risultato deside- 
rato. Oltre [ azione, dobbiamo quindi 
specificare con quale oggetto ta rea- 
lizziamo Il sostantivo sarà così pre- 
ceduto da una locuzione. Le più usa- 
te sono; con (WITH), a (AT, TO). in 
(IN . 1NTO) e attraverso (ACROSS), 

Uso degli oggetti 
E necessario prestare molta at- 
tenzione aile cose che vengono tro- 
vate nel corso dell 'ad venture. Un 
oggetto che eventualmente non ser- 
ve a nulla viene definito dagli inglesi 
un'ar/nga rossa (alcune si trovano, 
per esempio, nelle avventure della 
Interceptor Micro's Software ). 

In genere, comunque, tutti gli og- 
getti che possono essere raccolti de- 
vono poi venire usati; il problema è 
quello di riuscire a capire come farlo. 

Se stiamo visitando un mondo di 
magia, potrebbe essere necessario 
strofinare (RUB) qualcosa (per 
esempio TORB di Arrow of deaf/rf 
pari 7), 

Alcuni oggetti si formano assem- 
blandone insieme altri; una freccia è 
composta da un'asta, una punta e 
una piuma. 

Se una porta è chiusa, può essere 
necessario sbloccare la serratura 
con l’apposita chiave (UNLOCK), 
prima di poterla aprire. 

Gli esempi potrebbero continuare 
all’ infinito: è allora opportuno ricor- 
dare che la logica o la fantasia, a 
seconda dei casi, devono aiutarci 
nei momenti difficili 
Un altro suggerimento generale: 
digitiamo una o più parole e il com- 
puter ci risponde di non averne capi- 
to if senso, vuoi dire che conosce 


quelle parole , ma noi non le abbiamo 
usate nel modo giusto Se invece 
risponde di non conoscerle, dovre- 
mo indirizzarci verso altre soluzioni, 

Comandi speciali 

Si tratta di sostantivi o verbi che se 
digitati , pur non influenzando diretta- 
mente l’esito detradventure, con- 
sentono di utilizzare opzioni indi- 
spensabili in questo tipo di giochi. I 
piu comuni sono i seguenti mon ne- 
cessariamente presenti in tutte le 
produzioni): 

INVENTORY permette di sapere 
quali oggetti stiamo portando con 
noi e quali, eventualmente, stiamo 
indossando; 

SCORE se nel gioco sono previsti 
punteggi, ci dice a quale livello sia- 
mo arrivati (per esempio 1 50 punti 
su 1000, oppure dà una 
percentuale); 

LOOK ci ridescrive il luogo in cui ci 
troviamo; se néH adventure vi è una 
parte grafica, questa viene di nuovo 
disegnata; 

QUII permette di ricominciare il 
gioco; 

SAVE permette di salvare la situa- 
zione per poter continuare l ad ven- 
ture in seguito, dal punto in cui è 
stata interrotta; 

LGAD carica una situazione pre- 
cedentemente salvala; 

HELP fornisce eventuali suggeri- 
menti per risolvere situazioni parti- 
colarmente difficili: abusandone si 
finisce spesso a non ottenere più 
niente e, a volte, a venir dileggiati 
dal computer. 

Per concludere si può dire che ne- 
gli adventure assume una importan- 
za determinante l'esperienza: più si 
provano, più si giocano e più appren- 
diamo tecniche e nozioni per 
risolverli. 

Nel prossimo numero vedremo 
metodi diversi per compitare le map- 
pe del mondo che stiamo esploran- 
do, fase indispensabile per poter 
correttamente portare a termine le 
missioni che ci vengono, di volta in 
volta, assegnate dal tipo di gioco. 


Ricordiamo che per qualsiasi chia- 
rimento o domanda sugli adventure 
potete scrivere direttamente 
al fautore: Giuliano Boschi , via F. 
Massi 12 r 00152 Roma, 


Elenco dei verbi 
più usati negli adventures 


abbassare 

bwer 

accendere 

tight 

adattare 

fft 

andare 

go 

apnre 

open 

arrampicarsi 

climb 

aspettare 

watt 

attraversare 

through 

bere 

drink 

caricare 

lo ad 

chiudere 

dose 

colpire 

shoor 

correre 

run 

dare 

gift r offer 

dire 

say 

entrare 

enter 

esaminare 

examine 

girare 

tum 

guardare 

look 

indossare 

wear 

lanciare 

thrvw 

legare 

tia 

leggere 

read 

levarsi 

remove 

mangiare 

eat 

muovere 

move 

nuotare 

swtm 

otfnré 

gitt, offer 

pregare 

pray 

prendere 

take r get 

riempire 

fili 

rompere 

break t shoot 

saltare 

jump 

sbloccare 

urtfook 

scavare 

dig 

scrivere 

write 

soffiare 

btow 

slegare 

untte 

sparare 

fire 

spegnere 

&xtingutsh 

spingere 

push 

strofinare 

rub 

tagliare 

cut 

tirare 

putì 

toccare 

touch 

uccidere 

kilt 

usare 

use 

usare 

out 

votare 

fly 
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COME OTTENERE 
I CARATTERI SPECIALI 
DEL COMPUTER COMMODORE 



IN MOLTI LISTATI PUBBLICATI IN QUESTA RIVISTA 
FIGURANO ALCUNI CARATTERI “SPECIALI” 
INDICHIAMO, SU QUESTA PAGINA, IL MODO DI OTTENERLI 



PIEMONTE 
Aba Elettronica 

Via Fossati, 5/c 
10141 Torino 
TeL 011/332066 

Gruppo Sistemi Torino S.r.L 

Strada Torino, 90 h 
10092 Beinasco (IO) 

Tel. 011/651114 

LOMBARDIA 

Sirius Technology 

Via Imperia, 23 
20142 Milano 
Tel , 02/8467304 

Eledra System S.p,A. 

Via Ferruccio, 2 
20100 Milano 
TeL 02/3492010 

VENETO- VENEZIA GIULIA 
Corel Italiana $»r*L 

Via Mercato vecchio, 28 

33100 Udine 

TeL 0432/29 1466-480857 

Cash S.rJ. 

Via Noventa Vicentina, 2 
36100 Vicenza 
Tel, 0444/507155 

Vecomp S,r*L 

Via Chieda, 76 
37136 Verona 
TeL 045/583711 

Seda s*a*s< 

Via Sighele, 7/1 
38100 Trento 
TeL 0461/984564 


LIGURIA 

Siragusa Giuseppe 

Via Milano, 85/a 
16126 Genova 
TeL 010/261655 


EMILIA ROMAGNA 
S*H.R. S,r.L 

Casella Postale 275 
48100 Ravenna 
TeL. 0544/463200 

Tempo Reale 

Via Ce n tot re con to , ] /A 
40126 Bologna 
Tel. 051/270701 

Maser s.a.s. 

Via Corticella, 177 
40128 Bologna 
TeL 051/326420 



TOSCANA 
It-Lab S.r.L 

Via XXIV Maggio, 101 
56100 Pisa 
TeL 050/501359 

M*T,S, s.a.s- 

VJe Guidoni, 93/Z 
50100 Firenze 
TeL 055/410996 

EXM, 

Via Marconi, 9/A 
52025 Montevarchi (AR) 
Tei. 0575/982513 


Oggi trovi in tutta Italia una 
grande rete dì centri 
di assistenza tecnica 
Commodore . 

Sono gli unici centri 
autorizzati per assistere 
i computer Commodore , 
sìa i sistemi che gii home 
computer con le relative 
periferiche , e vi operano 


tecnici competenti e 
preparati . Questi centri 
sono perciò in grado dì 
garantirti un 'assistenza 
lem pes ti va , tota Im en te 
affidabile, e un servizio 
molto efficiente 
e professionale . 

Tutto ciò ti permetterà di 
ottenere sempre il massimo 



e professionali 
vizio 

mmodore... 


di prestazioni e di sicurezza 
nell 'uso del tuo computer 
Commodore > 
lì tuo Comm oc/or© è 
costruito per non darti mai 
problemi; può però capitare 
di over bisogno di un 
intervento tecnico ; in tutti i 
cosi , per essere maggiormente 
garantito , rivolgiti 


esclusivamente ai Centri di 
assistenza elencati gai. 


fs Commodore 

^1 i r-\\ i r r r~\ 



X 


MARCHE 

LM.P, Computers S,r,L 

Via Conti, 1 
60100 Ancona 
Tel. 071/804227-8 

UMBRIA 

Studio System s.a.s. 

Vìa D' And reotto, 49 
06100 Perugia 
TeL 075/754964-753353 

LAZIO 

Alias System S.r„L 

Via Marconi, 17 
01 100 Viterbo 
Tel, 0761/224688 

Kiber Italia S*r*L 

PJe Asia, 21 
00144 Roma EUR 
TeL 06/5916438-5929590 

Discorri S.n.c. 

Via della Pineta Sacchetti, 165 
00168 Roma 
TeL 06/6279132 

Computer Service Italia $,rl 

Via Baldassarre Orerò, 50 
00195 Roma 
Tel. 06/4382252 

ABRUZZO 

Pragma System S.r.L 

Via Tiburtina, 57 
64100 Pescara 
TeL 085/5088301 

CAMPANIA 

Gamma Electron ics S.r.l. 

Via Naz. delle Puglie, Km 36,266 
80013 Casainuovo (NAJ 
TeL 081/8421927 

Computer Market s,a*s. 

Parco S. Paolo Is. 9 
80100 Napoli 
TeL 081/76722222 

CALABRIA 

Sircmgelo Computers S.r.L 

Via Parisio, 25 
87100 Cosenza 
TeL 0984/75741 

Control System s.a.s. 

Via S, Francesco da Paola, 49-^D 
89100 Reggio Calabria 
TeL 0965/94466 

SICILIA 

Edilcomput Progetti 

Via La Farina, 141 Is. L 
98100 Messina 
TeL 090/2928268 

Elettronica Delta 

Vta Messina, 413/R 

95100 Catania 

TeL 095/373946-370170 

C,H,P. S*r.L 

Via Mondi ni, 3 
90143 Palermo 
Tei. 091/260780 

SARDEGNA 

S.I.L 

Via S. Lucifero, 95 
09100 Cagliari 
Tel. 070/663746 


GRUPPO ETHOS 




STUDIO D 

EMITTENTI RADIOTELEVISIVE INDIPENDENTI CHE SI FANNO SENTIRE. 


CONCESSIONARI MEZZI 
RADIOTELEVISIVI 


STUDIO D 

Via Rossini 5 - 20122 MILANO 
TeL (02) 793 592 762.503 





| Vie 20 INESPANSO 



Blitz 


\ 



Jacopo del gioco: distruggere i palazzi 
sganciando le bumbe curi l'aereo prima 
che esso stesso vada a schiantarsi contro 
di essi. 

Ostacoli: palazzi, numerosi all inizio 
del gioco, lì gioco termina se distrugge- 
te i palazzi o se vi sbattete contro. 

Andrea Campione 


1 REM *** + *** M + * t + * r r 
E REM+ BLLTZ 4 

3 REM*0 I ANDREA + 

4 rem* campione: + 

7 REMtPER VIE 20 * 

3 REM******+t1 **++*#* 

9 POKE 3 S 063 E 40 

10 P0KE?6879,93 

11 PCKE 368 T S * 15 

12 FRI NT 11 : J 31 =I - - = = v 1 e = - = - BL. ITZ^ = ^- 

13 PRINT"MttWaQAME CREA TÈ D BY m 

14 FRI NT "ANDREA CAMP IONE M 
13 PRINT^ WWWF RFsg Fi FOR" 

1 6 PR ! NT H I r I3TRUCT IO f |" 

17 SETA*: 1FW. ? "i*THEheOTO 1 7 

18 PRIMT H DISTRUGGI I PALAZZ I 0 1 " 
13 PP I NT " NEW YORK LANCIANDO LE “ 

£8 PR I NT "BOMBE CON UN QUALUNQUE” 

E 1 PR 1 NT "TASTO ! " 

£2 PR 1 NT ,, HF 1 TG BEGINN 

23 FRI NT " IMf ^ :• B Y SOFTAC 19B4 " 

24 GETfìF: IFA*: > * ■" THENGQTO 2 4 
23 READF 

BB 1FP*- ITHEMGOTO40 
ET FEAOD 
28 P0KE3ES75.R 
£3 F0PM= ITOGìrEXT 


30 

3 1 
32 
40 

4 1 
4 E 

43 

44 

45 
48 

47 

48 
43 

50 

51 

52 

53 

54 

55 

56 

57 
53 

59 

60 
6 1 
62 
63 


PDKE36875,0 
FQRN= 1 TO20 i NEXT 
GOTO 2 5 
Q=7702 !P-0 
F0KE3S869,255 

FORI =7168TQ3 1855P0KE I > 0 s NEXT 
FOR I =7 1 76T07 1 03 s RE AOA = PQKE I , A ? bÉ KT 
FORI =T184T07 191 : READB * FOK.E l , 8 * SlEKT 
FOR 1 -7 1 9ET07193? READCt FOKE I ,C ‘ NEKT 
PR I NT " A A A A A A A A A A * 

FRINT" A A A A A A A A A A *' 

FRI NT" A A A A A A A AAA A* 

FRI NT " A A A A A A A AAA A M 

PR I NT " AAA AAA AAA A AAA A H 
PR 1 NT M AAA A A ri AAA A AAA A 1 
PR I NT p AAA AAA AAA AAAAA fT 
PR I MT H * AAA AAA AAA AAA A A A M 
PR 1NT " AAAAARA AAAAAAAAA A M 
PRlNT^MlUPsT 

oosuEim 

JFQ+l >8 1 85 THENGO TO2000 

IFPEEKC Q + 1 ) - 1 THEMGOTO 1 OOO 

GO3U0100 

P0KE36874 , 128 

FOKEQ ,0! POK.EG + 1 ,2 s Q^G + 1 

FORX - 1 TO 1 00 s NEXT 

P0KE36874 ,8 
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Gl GDT 056 

ICO 1FPEEKC ÌS?>^B£TH£NGOTOE0O 
IO: IFFEO'/. 137 / ~S4 THEhRETURM 
£20 H-a+2£ 

23 3 I F]-H 22 >8 163THEMPOKEU,0 s RETURN 

202 1FPEEKT M*22}= 3THENGOTO300 
£03 IFQ+1 >81S3THENGOTO2000 

20 J 1FFEEK' Q + 1 > - 1 THEHGOTG 1000 

205 F0KE36S74 , 123 

E0E FGKE36876 , £5G 

237 FOK EQ ,0S FQ&EQ+ i , £ i 0~Q + 1 

208 POKEU i 0 s POKEW+22 , 3 a M = l-J4g£ 

203 FORM" ITO 100 JNEKT 
210 POKE 36874 , 0 

Eli P0K.E368?6,0 
Eie BO TOSSI 

300 H “ IMT' 10+RKK 1 > > 

301 F0R2MT0H 

732 IFI-J+a£>8 JS5THENRETURN 

303 F~P + 130: FR IMT H aaiUP- "F 

304 POKEI4/0 sPOKEW^EE A 0 :l-j = t‘J + 2£ 

305 PQKE36377 , 200 

306 F ORH - 1 TOSO * MEXT 

307 FOKE 36977,0 
338 MEXT2 

33S RETURN 

1070 F0KE3S873 , 1 10 


100 1 POI' E 38S 77 , E00 
1002 FORX- ITO 1000* MEXT 
100? POK E 36377,0 

1004 FR ! NT " aSMiF ECCITO ! 

■ Hm I COZZATO ! ! ! * 

1005 POK E 368 77/0 

1006 GOTO3000 

2000 FORX= ITO 1000: NEXT 

2001 PRIMT^aaWOONGRATULAZ IONI M ! ! ! " 

2002 GOTO30O0 

3600 FRI NT "UFI TO BEGINN. 

3001 GETA*: IFASX > " »" THEHG0TO300 1 

3002 RUM 

10000 DA T Fl23!5 , 100 , £35 ,100 £3£ , 100 
1 000 ì 0ATAH35, 100 ( 127 i 100,228,80, 

127 , 100,228,80 

m 

1OH0£ DnTA£35.100 £40,100 £35,100 
10003 0fiTfl£35 . ! 00 ,127, 500 
10CO4 DAT*-] 

23000 D>>TfìE55.2^ 145,145.355,145, 

145 , 255 

2000 1 0PlTfì£-'5 . 1 e , £3 , £55 , 1 £7 , S3 , 0 , 0 
£00O£ GATr. 102 , l©£,24 , B0, 126 ,g0 .24 ,24 

REA? ì - 
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Tutte le operazioni in leasing 
per i settori agricolo 
artigiano - industriale 
automobilistico. 


Per ulteriori informazioni siamo a disposizione 
presso le sedi della società. 

Reggio Emilia via Emilio S. Pietro 4 tei. (0522) 465239-23 1 
Bologna vio Indipendenza 22 tei (051 ) 222646 
Milano via Andegari 14 tei. (02] 88261 
Modena viale Patrizi Ì5 tei (059) 222 162 



SPECIALIZZARTI ! CON SCUOLA RADIOELETTRA PUOI. 


Scuoti è uni Scudi per Cor- 

rùporidenu, con oltre IO inni d attiviti 

Unorgaraosione dduua che ti consente d 
Ruttore a. casi tua. Un metodo di *ì»pwnentu 
che prevede nuLeriah tecnici per mettere m pra- 
oca la teoria appena appresi É 31 Corti prdes- 
smnali. m I quali troverai subito il più 
adatto me. 

CORSI DI ELETTRONICA 

* Tecnica Elettronica Spermwiule 

► Èfettrona Fondamentale e Teiecomurvfazwn.. 

► Elettronici Oigi«*e«Mi6T0C0ffl(HJfer 

* Elettronici Radio TV 

* Televrsione h'in 

« Tekevruonc aQuori 

■ Ampiikaiiwe Stereo 

■ Alca Fedeltà 

* Strumenti di Misura 


* Elettronica fnduHffjlifr 

► Robotica 

► Ami* e Programmazione basic 

CORSI TECNICO-PROFESSIONALI 

* Elettrotecnici 

* Disegnatore fhet carico Prcgensu 

* Attente e Dsegrutora Edile 

* Motoristi Anton paratore 

* Tecnico d'Offcim 

* Elettrauto 

* Programminone su Elaboratori £letironic< 
1 Impunti ad Enerva Sciare 

► Saterrud' Allarme Antifurto 

► Impunti Idraulici-Sanitari 

CORSI COMMERCI AU 

* Urgia hgteseiUigui Tecnica Lingja Frante^ 

► T etniche di Organi 22 mone Alludale 

* Iftiptegau d' Azienda 


* Dattilografo 

* Esorto Commentiate 

CORSI PROFESSIONALI E ARTISTICI 

* Fotografia fr'i 

► Fotografìa; Tecnici del Cokxe 

► Disegno e Pitturi 

► Esperti in Cosmesi 

► cernii novi r a- 

Al temile idei (U0 Cor», riceverai un At- 
testato di Studio dhq per molte aziende ara 
un1npcruf*e referena Inoltre, iscrivendoti 
ad un Còno, sani di dhnttcì Socio Elettra 
Card, ttulubcheotìrt jisj& aderenti proposte 
Lmthe e veramente vantaggio» Per ricevere 
irform«K)ni gratuite e lenta impegno, 
scegli il tuo Cor» e trascrivilo su questo 
"tagliando murro", che fedirai a Scuola 
Radioelettra, INDO Tonno, Td WIAS744I2L 




Scuola Radloelettra 


- 4 *fn T *«*: *f 3 > p 

SCUOLA RADIOELÉTTRA- IDIOO TORINO 

□ Si 

f. T*t- a l * F, i f imi. I limili, i w T, , 



I 


hOCMQHI 

hort 
V* 

.OC Al Iti 

ÌM **&<• 

fTÉ nonuKMi 


w 




TU 


Presa d'atto del Ministero della Pubblica Istruzione n. 1391 . 


noi vfii Mi jmtHiir* *AlMO*pQ FJhCJMÌ-p 
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■SISTEMA OPERATIVO 


Introduzione 

AL KERNAL 



col compii Ut mediarne Ij semplice pres- 


Che cos'è il he mal? Inizia da que- 
sto numero un viaggio n ella zona 
di memoria più inesplorate del 
Computer 

Unii delle caratteristiche che ha decretato 
la rapida diffusione del computer è costi- 
tuita dalla loro possibilità di conservare 
in fu mi azioni, immagazzinare numeri e, 
più in generale, di memorizzare dati. Na- 
turalmente, affinché tutto j| sistema possa 
gestire convenientemente queste grandi ri- 
sorse è necessario che la stessa sia orga- 
nizzala efficientemente in mudo da ren- 
derne E accesso il più semplice ed efficace 
possibile. 

Zone di memoria 

Per questo motivo la memoria di ogni 
computer è suddivisa in zone distinte, 
ugii una con specifiche funzioni, ( on parti- 
colare riferimento ai C ommodore 64 {ma 
il d iscorso è valido» apportando piccole va- 
riazioni, anche per il Vie 20), queste diver- 
se zone, nel la configurazione standard, so- 
no le seguenti {vedere al riguardo anche lo 
schema di figura 1 ): 

* dalla locazione 0 alla 1023 si trova 1 
Miste di RAM per le variabili di sistema 
(loca/ioni che il 64 usa per immagazzinare 
importanti valori ed indirizzi per le sue 

operazioni); 

* ila 1024 a 2047 un altro Kbvte di RAM 
per la grafica (e precisamente 1000 byte 
per la mappa video più 24 byte per gli stiri- 
le); 

» da 304R a 40959 abbiamo la RAM di- 
sponibile per i programmi Basic dell' uten- 
te; 

* da 44)960 a 4915 1 troviamo H Kbvte di 
RAM dedicati all'Interprete Basic; 

* da 49152 a 53247 sono situati 4 Khv le di 


RAM non accessibili da Basic e perciò par- 
ticolarmente idonei ad ospitare programmi 
in linguaggio macchina; 

* da 5.324H a 57343 è mappato l'Input 
/Output (zona usata dal 64 per comuni- 
care con te altre periferiche come floppy 
disk, stampanti» ecc\); 

• da 57344 a 65535 sono presenti gli 8 
Kbvte di RAM del KKRNAL. 

A differenza delle altre zone di memo- 
ria, gli ultimi NK del Remai non hanno 
quasi mai avuto descrizioni sufficienti. 

Che cos'è il kernat? 

Ebbene» il Rema! non è altro che il si- 
stema operativo del t.'64„ tutto l'insieme 
dei programmi che hanno il compilo di fa- 
cilitare fuso delle risorse del computer da 
parie degli utenti. Non c'è bisogno di cono- 
scere la particolare struttura hardware del 
calcolatore: è sufficiente ordinare al si- 
stema operati vo dì occuparsi del problema. 

Per fare un esempio» senza sistema ope- 
rativo non ci sarebbe possibile colloquiare 


sione di alcuni fasti a riceverne le risposte 
su vìdeo. 

Perciò tutto I input, l'output e la gestio- 
ne della memoria è controllato dal Remai. 
Inoltre, i vari programmi ili linguaggio 
macchina che esso usa per effettuare le 
proprie operazioni sono accessibili anche 
dall'esterno (programmando in Basic o in 
linguaggio macchina) mediante la "tabella 
dei salii’ siiuata negli ultimi 256 byte {pa- 
gina) della memoria, questa "tabella dei 
salti' non è altro che una zona di memoria 
dove sono contentiti, uno per uno, i vari 
indi rizzi delle sotioprocedure a cui bisogna 
fare riferimento per ottenere l'effetto desi- 
derato, 

P 

I er lare un esempio in Basic» se noi sap- 
piamo che alla linea 1000 e è il salto ad 
una routine che ha il compito di attendere 
la pressione di un tasto dalla l astierà, ba- 
sterà lare riferimento con un (.ìOTO o un 
COSIMI a questa linea per ollenere i’ef- 
fetto descritto. 
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Poiché, molle lolle* è necessarìn cutnu- 
me art? eriche alcuni parametri (si pensi al 
LO Al.) del Basic che ha hisogmo del nome 
del programma e del numero di periferica), 
prima del salto alla routine bisognerà 
inviare lati dall mediatile F utilizzo di ap- 
positi registri (locazioni di memoria con 
compiti particolari) che saranno di volta in 
volla specificali. 

Gli stessi registri, poi, ai ri turno dalla rou- 
tine, potranno contenere eventuali pani- 
metri ini iati dal sistema all' utente (si pensi 
ai un i messaggi di errore che a lotte com- 
paiono sul video). 

nasiera — in caso di difficoltà — tener 
presente che, per usare il Remai, si deve 
abbandonare la mentalità del Basic per en- 
trare in quella del linguaggio macchina, 
dove qualsiasi scambio di dati è effettuato 
in base a valori introdotti io opportune lo- 
ca/ioni dì memoria e non a variabili o a 
caratteri digitati sullo schermo. 

I ,e routine dei Remai 

Bisogna premettere che, per distinguere 
una lo procedura dall'altra (in lutto ce 
ne sono 39), ognuna ha un proprio nome 
(ehi è quello riportalo sulla Guida di Rife- 
rimento del Program malore). Saranno 
trattate solamente quelle che si ritengono 
più importanti ni lini della program ma/iun e. 

La prima sotto procedura che esaminia- 
mo è quella chiamata SCREEN, a cui si 
accede mediante un salto albi locazione 
6551 7 (SFTED ). Scopo di questa routine è 
quello di ritornare a) formalo deliri scher- 
mo (righe per colonne), rivelandosi perciò 
particolarmente utile per Facilitare la 
compatibilità dei programmi scritti per i 
computer COMMODORE, 

Il suo uso è mollo semplice: lavorando in 
linguaggio macchina, basterà semplice- 
mente saltare al suo indirizzo di chiamata 
con un JSR e, al ritorno, it registro indice 
X conterrà il numero delle colonne, mentri 1 
il registro V quello delle righe; lavorando 
invece in Basic, bisognerà saltare con una 
SYS al suo indirizzo di chiamala, dopodi- 
ché la locazione 781 (che simula il registro 
X da Basic) conterrà il numeru delle co- 
lonne e la locazione 782 (che simula il re- 
gistro Y) conterrà il numero delle righe. 


65535 


FFFF 


KERNAL 

£00(1 

57344 


E900 

57343 


DFFF 


INPUT-OUTPUT 

■ 

53218 


1)000 

532-17 

RAM iiUFFERS 

(FFF 

49152 


cotto 

49151 

lMERf’RKii: Il ASIC 

BFFF 

49960 


A 000 

40559 

RAM BASIC 

9 FFF 

2048 


0869 

2047 

RAM GRAFICA 

07FF 

!024 


0409 

1023 

VASI AB, DI SIST. 

9311 

0 


oooo 

1 igeili 1: 

VJ lippa di mtfnorj.ii tiri CommaJuic L-ì 


(-binaria eoo iì tutto con un esempio. 
Supportiamo di voler scrivere un pro- 
gramma che possa girare sia sul \ ic 26 che 
sul ( ommodore 64 e che, ad un certo pun- 
to, si abbia bisogno di disabilitare il usto 

RUN/STOP. 

Come forse già si saprà, per ottenere 
questo effetto basta digitare ufi Puh! 
788,52 per il (64 ed un LO Kb 788,194 per 
il \ IC 29. Il problema che si pone, perciò, 
é quello di far eseguire a l’una n l’altra 
LO hi a seconda della macchina su cui il 
programma sta girando. Coi! l'uso della 
routine SERI t \ del Remai, il problema c 
presto risolto. Giacché lo schermo del t 6J 
è costituito da 46 colonne pei 25 righe, 
me ni re il Vie 29 ha unii schermo dì 23 per 
22, basterà saltare a questa routine e, al 
ritorno, controllare il numero delle colon- 
ne (o delle righe] ed agire di conseguenza. 

In Basic, il programma sarà il seguente: 
IO SYS 65517 

20 IF PEEh (781) 40 THKN mkl 


7X8,52: GOTO 40 
Mi BORE 788,1 94 
4(1 


Mentre in linguaggio macchina: 


02 A 7 20 

ED 

FF ISR 

SFFED 

02AA EO 

28 

CPX 

#$28 

02 AC DO 

05 

KNE 

SG2B3 

92 Ai A 9 

34 

M)A 

#834 

92B0 4( 

R5 

02 JMF 

sG2B5 

92113 A 9 

C2 

EDA 

#IC2 

02B5 XI) 

14 

03 STA 

50314 

02BN (HI 


BRK 


Commentiamoti 

brevemente. 

Per il 

prugram ni a 

Basic, 

la linea 10 

esegue i 


salici alla routine SCREEIV dopodiché la 
linea 20 controlla il valore della locazio- 
ne 781. Se esso è aguale a 40 (caso del 
( 64) allora si effettua la relativa POKE e 
si salta alla linea 40 dove continua il pro- 
gramma. Nel caso in cui questo valore 
non fosse 40 (e allora sarebbe il 23 del 
Vie 20), la linea 20 non viene eseguila, si 
effettua la PO RE della linea 30 (che è 
quella relativa al Vie 20) e si Contìnua 
nomi al mente il programma. 

Per il listato assembli (valido sta per il 
V ic 20 che per il t 64), la prima istruzione 
esegue il salto alla routine SCREEN, do- 
podiché si compara il registro \ col valo- 
re $28 1 40 in decimale). 

Se questi dite sono uguali (cavo del 
t 64 1* allora si carica I' accumulatore col 
valore 834 |52 in decimale) e si salta alla 
locazione $0314 (788 in decimale) it valore 
presente in quel momento nell accumula- 
tore, disabilitando cosi II tasto STOP per 
il C 64. 

Nel caso in cui il confronto di $1)2 V V 
fallisse (caso del Vie 20)* allora ci sarebbe 
il salto a S02B3 dove si carica tace innubi- 
ture col valore Si '2 (194 m decimale ) v lo 

memorizza in >0314 {come già detto. 
7X8 in decimale), disabilitando cum il tasto 
M Ol“ per il \ ic 29. lì listato, poi, termina 
con I istruzione lìRK. da rimuovere m i ca- 
so in cui il programma cuti t lima. 

L urici mio questo mio articolo facendo 
notare, dall'esame della pìccola routine 
presentala, quale possa essere la potenza 
del Remai, rimandandovi nello stesso tem- 
po ai miei prossimi scritti coi quali conti- 
nueremo il (itisi ro viaggio nel suo interno 
alla ricerca dì r ini fine ancor più utili e po- 
tenti. 
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QUALSIASI COMPUTER 


M.C.D. & M.C.M. 

fra Due Numeri 


(Calcolare il Massimo Connine Multi* 
pio e il Minimo Comune Divisore Ira due 
numeri e forse una delie prime cose che 
aitili amo imparalo alle scuole medie. Il 
metodo insegnato è quello di scomporre 
i due numeri in fattori primi e poi, se- 
guendo un cerio criterio, valutare l'MCM 
e l'MCD, Questo, però, è un melodi» al- 
quanto scomodo, soprattutto quando lo 
si vuole “insegnare* 1 ad un computer. 

Come si fa infalli a trovare l’MCM o 
l'MCD fra due numeri di sei o più cifre, 
usando il metodo della scomposizione in 
fattori primi? f una cosa mollo lunga, 
esiste però, per fortuna, un al Irò melo* 
do che, guarda caso, è fatto apposta per 
il computer, e nello stesso momento ri- 
sulta essere velocissimo (provare il pro- 
gramma per credere). 

Questo metodo è 1*“ algori Imo delle di- 
visioni successive*', Si tratta insonnia di 
compiere solamente alcune divisioni. 
Chiamiamo i due numeri dati AX e B\* 
Troviamo allora un QX che è il quoziente 
di AX e lì\ , cioè QX ^ AX/HX. Chia- 
miamo H\ il resto dì questa divisione. 

Se il resto è diverso da /ero, si prose* 
giie con le divisioni, e bisogna dividere 
HX pcrQX, ottenendo un altro QX e un 
altro KX e poi ancora dividere il primo 
QX per il secondo QX, e cosi via, fino 
a quando non si ottiene resto uguale a ze- 
ro. 

In questo caso il penultimo divisore, 
cioè il QX clic abbiamo diviso per il se- 
condo QX, rappresenta il Massimo Co- 
mune Divisore, Non è il caso questo di 
dinioslrare quanto detto: provate a far 
girare il programma e verificate che le so- 
luzioni siano esatte. Se poi vogliamo tro- 
vare anche il Minimo Comune Multiplo, 
non dobbiamo lare altro che moltiplica- 


re ì nostri due numeri di partenza tra lo- 
ro e dividere il risultato per il Massimo 
Comune Divisore. 


Tutto questo avviene in un tempo bre- 
vissimo, anche per numeri di molte cifre. 

Giovanni Ilei In 


110 REM M,C,0 & M , C » M * FRR DUE NUMERI 

1 £0 REM 

130 REM GIOVANNI BELLU * SOFTWARE 1383 
190 : 

£00 REM SFONDO BLU PER C* 63 

£10 PQEE53£3Q,6 

££0 P0KE5328 1 t 6 

330 PP I NT “ij" i REM CLR HOME 

£30 PR INT'lt 11 SREM CYN- 

£50 PRINT"a C fì L C O L O - O E L " 

£60 PR INNiflftSS IMO COMUNE DIVISORE* 

£70 FRI NT H AU93 INI NO COMUFE. MULTIPLO" 

£80 PR I NT " JFRA DUE NUMERI DATI A , B * 

£90 INPUT” mi INTRODUCI A ,6 * ; A ,B 

3D0 I F B « 90R A “0THENRUN 

210 AM-ASBX=6 

32D REN 

330 REM 

713 REM ALGORITMO DELLE DIVISIONI SUCCESSIVE 
350 REM 

360 QX*IMTt AX.'BX> 

370 RX=AX-BX*QX * I FRX - 0THEM460 

330 IFBX/RX=INT< RX/BX>TVIEN40B 

393 AK^BX s BK^RX * GGTQ360 

400 PR I NT " Ef l . C - D , Wt* * * RX 

410 REM CALCOLO MCM 

4 £0 MM~A*BYRX 

430 PRINT ,J ^L C . M.B= “ ; MM 

440 FR 1 NT 

453 END 

460 FR I NT * ^4 . C j D * B= m f BX 
470 MM-A+BXBX 
480 PRINT m 5M j C-Mt»= i, ;MM 
430 PRINT 

REAOY, 
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|VIC 20 IN ESPANSO 


Tunnel 


100 
t 10 
1 £0 
130 

170 

171 
J7£ 

173 

174 

175 
i re 
180 
190 
£00 
£ 10 
£20 
£30 
£4 0 
£50 
380 
£70 
£80 
£90 
300 
310 
3£0 
330 
34 0 
350 
360 
370 
38 ® 


REH+ TUNNEL 

REM* PER VIC £0 INESPANSO 

REM* 

REM* DI AM3REA CAMPIONE 

a 

p 

PR INI H kJJSR I TASTI " 

PP IMT "N K “SINISTRA > “ 

PR I NT “ M C = DESTRA > " 

PR IMT *2 C =3PAR0>* 

PR I NT “SPREMI UN TASTO 41 
GETA* i [F A* = ,l " THEN 1 76 
POKE 36879 , 1 10:POKE36878 , 15 
P0KE36B69 ,£55 

FOR I -71 68T08 185 SPORE I ,B sNEXT 
FOR I =7 176T07 183 s RE ADA ! POKE I ,At NEXT 
FOR 1=7184 T07 191 sREADB : POKE I , B s NEXT 
FORI =?I3£TQ7 139 SREADC s POKE I ,CI NEXT 
FOR I - 720OTO7207 ' RE ADO * POKE 1 ,D * NEXT 
FOR I “7208 T07£ 15 s PERDE : POKE I , E * NEXT 
7 = 3 s P * ® 

PR = 51 =2iS£=£:S3=2SS4-2 

FQRX= 1TQ2 1 

PRIMI” D D * 

NEXTX 

AS=S 174 SKE=7638: SP=rE+££ 

FORX= ITO 50 


Icopo del gioco: evitare mine e astro- 
navi che vi piombino addossa sparando, 
Potete sparare sia alle astronavi che alle 
mine e non potete uscire fuori dal tun- 
nel. 

Ostacoli: mine, non si muovono ma 
sono micidiali se entrate in collisione con 
esse; astronavi, piombano volando ver- 
so di voi e lanciano raffiche di missili. 

Se un missile » un'astronave entra in 
col listone vi fa perdere una delle 3 vite. 
Si guadagnano mille punti per ogni astro- 
nave e 100 per ogni mina. Non potete 
bloccare i missili delle astronavi, 

gioco prosegue dopo aver eliminato 
il primo squadrone di astronavi con al- 
tri squadroni. Il gioco termina quando 
pèrdete le tre vite, 

Andrea Campione 


H - INTC 506+RMD< 1 ? > 

POKE 7680 +H r 4 
NEXTX 

PR INT“ 9®3CQRE= "P “3 LIVES=^ ”V ! P0KE36876 , 0 : GQSUB650 
IFFEEK' AS-££^£ORPEEKv A3-22J =4THENGO5UB980 : GOTDE70 
IFA5<: 7 6 80 THE MA 5 =8174 


390 I F V = 0 THE NS 9 0 
400 GQSUB650 

4 1 0 I Ff E >3 1 35THENNE -7683 

4£C POKENE . B : FOKEbE +23 , 0 i FQKENE +48 ,0 ; POKEbE +72 , 0 1 GOSUB650 
■130 NE=NE+E£ 

4 10 POKENE, SI i POKENE +23 ,S£ ? POKENE +48 ,S3 : POKENE +72 , 34 s GDSUB650 
450 FOK.EA5,0:POKEA5“2£ , 1 ì A3*AS-£2 
460 FORMULI T05 
4 70 IFSP >8 185THENG0SUB74 0 

4 8® IFPEEKC SP + ££ > - 1 THENV -V - 1 ! FOKE3P , 0 s POKESP +22,3* GOSUB820 
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1 90 POKESF , 0 ! POKESP +22 , 5 ! SP»3P +££ s 6OSUB650 

503 G03UB630 

510 POK.E 36877 ,200 

520 IF3 1 ^0AND52=0ANDS3-0ANOS4-0THEN270 

530 NEXTNU 

54© FOR2K-1T05 

553 IFl-X 7680THEM-I =7679 

550 IFPEEK.f l-J-22 > =4THENP=P+ 100 : POKEW,0 '• POKEW-ES , 3 * 1J-7679 

573 IFUI-2£=NEAND51< >0THEMS 1 =0 :P=P+ 1080 i POKEN, 0 : POKEU-22 , 3 ! W = 7673 

530 1FW-22-NE +23ANDS2< >0THEMS2-0I P=P+ 1000 s POKEIt,0 1 POKEN-S2 ,3: IJ-7679 

530 IFW-2E-NE +480NO53'. . -0THENS3=0 : P = P + 1000 1 POKEN, 0 : POKEH-22 , 3 : N = 7679 

60O IFIJ-22=NE + 72AfC34< >0TH£N34 =0 i P=P + 1 000 1 POKEN , 0 1 POKEW-22 , 3 ! N=7679 

£ ■ O POK.E36376 , £53 : GO5UB650 

S20 POKEU-22 ,5JPOKEU,0S W-W-£2i6OSUB650 

630 neht;:< 

6 4 0 60TD36B 

650 IFPEEKC 1 37 >=36THEM6B0 
66B IFFEEK' 137? =23THEN710 
670 IF PEEK,\ I37> = 33THEM730 
6S0 RETURN 

630 1FPEEK< AS+ I > *4THENRETURN 

700 POKEAS ,0 ! POKEAS + 1 , 1 : AS=AS+ l : RETURN 

710 IFPEEKf ftS-1 >=4THEMRETURN 

720 POKEAS ,0s POKEAS- 1 , 1 : AS=AS- 1 : RETURN 

730 POKEW,0 « W*AS~£2 : RETURN 

7 -i 0 K-irrr: 100 *rno-'. ij> 

750 IFKC30THEMRETURN 
76© J = ! NT< 4 tRNPC 1 > ? 

770 IFJ^QAFttJSK >0THENSP=NE+22 
730 IF J=lAN0S2< >0THENSP*NE+45 
790 1F J=2ANDS3< >0THENSP=NE+70 
800 IF J“3AND54C >9THENSF=NE +94 
S10 RETURN 

820 POK.E36B77 , 123 5P0KE36873 ,45 

630 FORM= 1 5TO0STEP - 1 

340 P0K.E36873 , M 

S50 FORX = 1 TO 1 00 • NERTR 

380 NEXTM 

370 PDKE3637S, 15:P0KE36873 , 110 

380 RETURN 

830 PQKE35369 ,240 

900 pnk F 198.0: PR INF BIGCO" 

310 POKE3S878,0 SPRINT "PUNTI = "P 
920 END 

930 DATA24 ,6B ,126,231,231 ,255 ,123,183 

940 DATASI ,32,64 , 159,249,2,4 ,248 

350 OPTA 128,48,4 ,8, 18 ,65 ,0 , 123 

360 DA TRI 26 , 189, 219,231 ,231 ,219 , 189, 126 

370 DATA 123, 129,123,129,129,123,129,123 

980 V = V- 1 ! POKEAS, 0IPOKEA5 -22 ,3'GOSUB3H0i RETURN 

READY. 
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COMMODORE 64 



are musica con il Commodore 64 è 
quasi un obbligo per dii possiede tale 
computer, Non ci si deve accontentare 
dei soliti rumori, ma bisogna realizzare 
dei "suoni ’ un po' piu.., completi: della 
musica, Per tare questo il Coni modo re 
64 mette a disposizione ben tre voci, e 
quindi, in pratica, tre noie che possono 
suonare nello slesso momento. 

Chi ha provalo a creare della musica 
senza l'aiuto di alcun programma, saprà 
certamente quale duro lavoro bisogna fa- 
re nel cercare i v aiuti delle note nella ap- 
posita tabella die sì irò va nelle appendi- 
ci del libretto di istruzioni c nell 1 introdur- 
li in un programma che li legge e, sue- 
cessi v aulente, li "suona". 

Cominciamo, però, dall'inìzio: ci tro- 
viamo davanti ad uno sparlilo di musica 
e dobbiamo introdurlo in qualche modo 
nel computer. Per fare questo si incon- 
trano non poche difficoltà, prima fra tul- 
le è quella che le note non sono delia stes- 
sa durala. Come fare allora per suonare 
insieme delle nule la cui durata non è la 
stessa? 

ì sono diversi metodi, tra cui quello 
di considerare per ogni noia la sua dura- 
ta e poi affidare tutto il resto al compu- 
ter, L n altro metodo, quello adottato dal 
mio programma, è di suddividere le no- 
te in base alla nota di minor durata. 

Per essere piu chiari, se la nota più bre- 
ve e di un sedicesimo, bisognerà suddi- 
videre l'intero spartito in sedicesimi, co- 
si die la nota di durata, per esempio, di 
un oliavo andrà ripetuta due volte, quella 
di un quarto qual Irò volte e cosi via* In 
questo modo si "consuma’ più memo- 
ria, ma le correzioni, fu le varianti! I, ri- 
sultano piu facili. 

Lo slesso procedimento ili lettura e ili 
conversione in musica dei dati viene in 
lai modo semplificato, come sì può no- 





tare dal secondo listato, di cui parlere- 
mo dopo. 

Il programma 

Il music editor proposto ba la fon/ io- 
ne di "tradurre" le noie in valori nume- 
rici, archiviarle, stamparle e suonarle. Ab 
l'inìzio bisogna attendere qualche secon- 
do perché il programma calcoli i valori 
dii tutte le note delle otto ottave, avendo 
a disposizione solamente le frequenze di 
ogni noia dell 'ultima ottava f linee di da- 
la da .VjHI a 5IMII. Il metodo usato i mol- 
to semplice ed è quello indicato nella 
"fjuida dì riferimento per il programma- 
tore" (appendice "O" a pag, 75 1. I sso 
consiste nel tallo che ogni noia di una ot- 
tava ha Come frequenza quella della sles- 
sa nota della ottava successiva, divisa pe- 


rò per due, 

(tasta quindi avere i valori delle fre- 
quenze dell'ultima ottava per poter ot- 
tenere mediante hi semplice divisione per 
due, tutte le frequenze delle otto ottave, 
'si può vedere questo procedimento dal- 
la linea 560 alla lìnea 620, 

IP er calcolare i valori da * Tubare" per 
avere musica, basta sapere clic il primo 
(valore attui e dato dairìmero delta di- 
visione della frequenza per 256 e che il 
secondo (valore basso) è semplicemente 
il resto, 

Questi valori vengono calcolati dalla 
linea 640 alla linea 740, 

Quando il computer avrà finito di cab 
colare tali valori, farà apparire sullo 
schermo lui menù con sei opzioni, piu 
liti a per uscire dal programma. Analiz- 
ziamo ora mia per una le sci opzioni. 

Opzione 1: INPUT nuovi ditti 

I na volta premuto il fasto "1” perla 
scelta della prima opzione verrà cancel- 
lato il video e sullo schermo apparirà la 
scritta "introduci le «ole (nota -ottava)" 
e sotto " i cinpo I" ed H cursore su una 
linea. 

Bisogna scrivere la nota: do, re, mi, fa, 
sol. la, m, premere Return e poi premere 
un tasto compreso fra uno e otto per in- 
dicare l'oliava. Il cursore si sposterà so 
una linea più a destra. 

La prima linea indicava la prima vo- 
ce, la seconda indica la seconda e l'ulti- 
ma indicherà la terza voce. Se nella mu- 
sica introdotta non c’è bisogno di ire vo- 
ci, basta premere Rei uro e verrà visua- 
lizzata una freccetta verso l'alto (questo 
può anche servire se all'iiilemo della mu- 
sica c*c una pausa). 

Ovviamente, la possibilità di intrudile- 



re i IMI SJ^ Ir tasti neri, per ehi non se 
ne intende! > non mutu i*, v basta med ere 
dopo la noia* cioè; do#* re#* 
fa # * sol # . la # . 

Non è possibile intnufurre i Il cui ut Ir 
ran un Min buio particolare: bisogna farli 
diventare DII- S£S della nota precedente. 
Per esempio, iJ He Bemolle diventa DO*, 
cioè HO HIKSIS, 

Per tilt esperti rii musica questo è un 
grave errore teorico, anche se "pratica- 
mente"» cioè agli. effetti della frequenza 
della nota e deH'ii scoliti , non cambia as- 
solutamente niente. Noi. strimpella lori 
con il compii ! it ci accontentiamo di que- 
sto! t teorici si acconieniiii» con nui.»* 

Una volta introdotte le nule e le ulta- 
ve per le ire soci, la scritta “Tempo 1" 
cambia in " tempo 2” e così di seguilo 
l'ilio al massimo £ modificabile), indicato 
nelle istruzioni 1)1 \l di linea 270 e 280* 
di cento tempi, cioè di cento sedicesimi, 
ottavi, quarti ree* a seconda di come ave- 
te suddiv iso lo sparlilo in base alba nula 
di minor durala. Nt-ll 1 introduzione delle 
note, sono disponibili alcune comodità* 
che per al irò sono essenziali per chi vuo- 
le introdurre spartiti complicati u pecchi 
teme l’errore, 

rimo: premendo H vengono visua- 
lizzale al di sotto delle linee solile, le no- 
ie del i emjn> precedente, e si può cam- 
biarle come si vuole, come se si dovesse- 
ro introdurle di nuovo. Se per esempio 
siamo nel tempo 4 e vogliamo tornare.., 
indietro nel tempo* premendo PI andre- 
mo nel tempo 8, premendo ancora F I nel 
tempo 7 e cosi via fino al tempo I o fino 
a quando troviamo un tempo da correg- 
gere, per cui dobbiamo riscrivere le noie 
e te ottave per tutte e ire le voci di quei 
tempo. 

Secondo; premendo F3 si ottiene l'ef- 
fetto opposto a quello clic si oli iene pre- 
mendo F I: cioè si va avanti, fino all'ul- 
timo tempo introdotto. Se V ultimo tem- 
po introdotto è l’K. per esempio, e sia- 
mo andati nel tempo 3 con M, se voglia- 
mo continuare rìsnmduzione delle note, 
dobbiamo quindi premere 13 fino a 
quando si arriva nel tempo il primo li- 
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beni. Piu in là noti si può andare. 

iena: premendo 15 si può inserire 
ima linea. Se per esempio ci siamo di me ri- 
nculi di introdurre un tempo lil quurini, 
dobbiamo usare I I o 13 fino li quando 
siamo al quarto tempo. Premendo allo- 
ra T5, i lem pi dal quarto in poi verran- 
no "shiftati'* in mi (cioè il quarto diven- 
ta quinto, il quinto sesto e cosi v ia> e nel 
quarto verrà introdotto tu ogni voce il 
RI I T RN* cioè la freccetta verso l'alto, 
che indica, come dello prima, una noia 
nulla, 

Possiamo a questo punto o lasciare le 
note nulle o introdurre come al solito le 
note del quarto tempo, e poi proseguire 
con U introduzione delle altre noie, 

(Quarto: premendo 17 si ottiene l'ef- 
fetto opposto al l'opzione data da 15, cioè 
si cancella un tempo. Se per esempio vo- 
gliamo canee Ila re it quinto tempo perchè 
è di troppo, andiamo con F l o K3 al tem- 
po 5 e premiamo 17: al padri del quinto 
tempo verrà messo il sesto* al posto del 
sesto il settimo e cosi via fino all'ultimo 
tempo introdotto» 

C^uinto: quando sì è finito iti introdur- 
re lo sparlilo, U> si è stanchi di introdur- 
lo!)* premendo I 8* cioè SII 11 t + ì l\ ver- 
rà visualizzata una domanda che chiede 
se si vuote memori zzare le noie introdotte 
fino a quel momento» Se viene risposto 
dì no* cioè si preme "N", si toma alle 
opzioni principali. Per il caso affermali 
vii vedere l'opzione 6, in cui viene spie- 
gala la tecnica di memorizzazione e la 
successiva rileltura dei dati mediante un 
qualsiasi programma che debba usarli. 

Opzioni 1 2: Modi tu' ho nuli 

Per usare questa opzione bisogna aver 
già introdotto dei dall oppure averli letti 
da disco mediante l'opzione 3. 

t ria volta scelta questa opzione, biso- 
gna agire in modo analogo alla opzione 
L e si può quindi correggere, cancellare* 
inserire o introdurre nuove noie. Per 
uscire premere, come per l'opzione 1 il 
Insto funzione numero fi. 



Opzione 3: Lettura Dati 

Hisogna Introdurr? il nome di un lite 
precedentemente registralo mediarne cui 
si può modificare, memori// are o ascol- 
tare i dall tetti. 

Opzioni 1 4: Olii puf su stampanlt* 

V i sono line opzioni piu una terza per 
(ornare alle opzioni principali» La prima: 
"Sono note" stampa i simboli delle no- 
ie (do* re* sol# , si, m,| e l ‘ottava. Su 
ogni linea vi sono le note delle tre voci 
del tempo indicalo dalla linea, l a secon- 
da: "Solo dati per Pube note’ stampa 
i valori numerici* quelli da 11 Potare" per 
ottenere musica. 

Vengono srampati, per ogni voce* tl 
valore alto ed il valore hasso della fre- 
quenza della noia in questione. Ogni li- 
nea slum pai a è numerala: il numero in- 
dica il icmpo di quella linea. 

Opzione 5 : Ascolto Musica 

Questa opzione inizia alla linea 2DH0. 
Bisogna attendere un po' di tempo ull’i- 
nizìo perché il computer traduce i sim- 
boli delle note ini rodo Ite, nei numeri cor- 
ri sponde nb alla frequenza di ciascuna no- 
ta. 

Verrà quindi suonala la "nostra" mu- 
sica usando, ovviamente* le tre voci* 
Quella che sentiremo è solamente una 
musica indicativa: inladi si può modifi- 
care il tipo di suono e, ovviamente la du- 
rata. Per quest’ ulti ma sì può modificare 
il loop di ritardo di linea 3370. 

Atta line si torna automaticamente alte 
opzioni principati. 

Opzione 6: Memorizzazione 

Usando questa opzione sì possono me- 
morizzare su disco i dati introdotti con 
l'opzione 1 ci 2. 

Bisogna dare il nome del lite nel quale 
verranno memorizza fi ì dati. Attenzione 
assegnando il nume di un file preceden- 
temente memorizzalo* questo verrà can- 
cellalo!! Vengono registrati due file. Et 
secondo avrà io stesso nume del primo* 
con l'aggiunta all’inizio di una freccetta 



verso rullo. \ citiamo a che servono e ci>- 
im si leggono questi due iilc. 

li primo, elle uvra esali a mente d no- 
me da noi introdurrò, contiene i dui* delle 
finii 1 elisi tome li tnlrududamu, insieme 
ulTottavu, lom cu me compare Militi slam- 
jiìin Tr scegliendo la prona opzione. flM >2. 
MM, SO| 4 #fi eeej, Sono registrali se- 
i| uen /óil in etile, cidi*, prima la prima vo- 
te del tempo imo, poi la seconda, tumi- 
di la terza, e poi ancora la prima voce del 
tempo 2 e elisi via, Alla line per indicari 

il 

che i dati sono lini li viene memori zzalo 
*' line 11 *. 

i ale Irle* serve sopra Mimo per il pro- 
gramma pii Ridicalo perché Mulo questi i 
dati che il cumpuler va a rileggere con 
rtip/mne ^ r 

Il secondo file è in vece quello utile per 
altri scopi perché coni ic ih lui ti i valori 
per ogni noia da * "potare", r dati cioè 
della la lidia di cui si diceva nll'iuiziu. 
Onesti dati sono memorizzali come se- 
Uiie: 

valore alto, valore basso voce I lem pò l 
valore alio, valore basso mi e 2 lem pò E 
valore allo, valore basso voce 3 lem pò I 
valore allo, valore basso voce I lempu 2 
e cosi via per tulli ì tempi della musica 
memorizzata. 

Il programma ninnerò 2 è un esempio 
ili come si deve l are per lecere i dal! ge- 
nerali in tal modo e quindi "Suonarli" 
Ovviamente è necessario aver già memo- 
rizza tu almeno un lile con delle note su 
dischetto. 

Nòti! l>CiU* tPcr ehi non possiede flop- 
py o per dii vuole utilizzare la musica cosi 
composta in un proprio programmai. 

I valori memori zzali in questo secondo 

file potrebbero venir messi nelle istruzioni 
DAI A, ensi che il Programma che li uti- 
lizza non è costretto ogni volta a legger- 
seli da disco. Per lare questo è utile stam- 
pare luli valori sulla stampante usando 
la seconda opzione dd l'opzione 4. Nella 
t igor a viene mostralo un esempio di util- 
piu su stampante Folte antimi, Provale 
ad inserire quei dati nel programma e.,, 
buon ascolto. 
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VOCI 3 

1 -> 
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Fh3 
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1 

4 -> 

Fh3 

FH4 

1 

fcr \ 

FR3 

F R4 

? 

é -> 
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1 

1 
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Fh3 

FR4 

7 

8 -> 

LRW :i 

RE 4 

LR#4 

9 -O 

LH#3 

RE 4 

Li i#4 

lCi-I; 

Lm j 

RE 4 

L,Fl#4 

i 1“> 

Lrt4.-t 

RE4 

Llitt4 

12-3 

1 

T 

1 

13-3 

LR# j 

RE 4 

LH#4 

Ì4-J 

LRtìi: 

REA 

LM#4 

15-> 

LH#8 

RE 4 

LHW4 

16-.- 

LrittJ 

RE4 

LtiH4 

ì?<> 

fr:: 

FR4 

D04 

is-> 

FR3 

FR4 

DQ4 

i9-y 

FR3 

FR4 

D04 

_u ~ 

FH3 

Ffl4 

D04 

2 1 

f 

f 

1 

22-y 

Fm3 

FR4 

IlU4 

23-> 

FR3 

FH4 

D04 

24 • “> 

K h3 

FR4 

DO 4 

2S-> 

Fft3 

Fm4 

DO 4 

iì'ti — _- jI 

RE j 

Fh4 

FR5 

27~> 

RE 3 

Fh4 

FR5 

2è-j 

RE3 

FH4 

Fh5 

23-> 

RE 3 

FB4 

Km5 

:--u- ■ 

FR 3 

FR4 

FH5 

31 -> 

Fh3 

FR4 

FH5 

32-> 

FR3 

RE3 

T 

33~> 

FA3 

RE 5 

r 

34 -J 

RE 3 

LR*4 

t 

35 -J 

RE J 

LR#4 

[ 

36-> 

RE 

r 

T 

3?-> 

RE3 

LN#4 

1 

88—. 

Lhtti 

RE5 

T 

3?-:> 

lR#2 

RE5 

1 

4y-> 

LFt#2 

RE j 

1 

41“ 

RE 3 

Lh#4 

RE2 

42--J 

RE#2 

RE #3 

SOL 4 

4 3-> 

RE #2 

RE#3 

SOL 4 

44“ > 

PE#2 

RE #3 

SOL 4 

45 -> 

RE# 2 

RE# 3 

3DL4 

4t-> 

m e 

3014 

RE#5 

47-. 

003 

3 ijL 4 

RE #5 


DOS 

SOL 4 

RE #3 

49- > 

Jjuj 

SOL 4 

RE #5 

59~> 

D03 

SOL 4 

RE #5 

5 1 

li 03 

SOL 4 

RE.#5 

52-> 

li 03 

SQL4 

RL#5 

53-> 

£WJ3 

SOL 4 

RE#5 

S4-> 

FFI3 

FA4 

IUJ5 

55-: 

FR3 

Féi4 

D 05 

5ò'*> 

FR3 

FR4 

hù5 

57-} 

FR2 

Fm3 

L R4 

ss-; 

Li i#2 

RE 4 

LF(#4 

53-> 

Lh#2 

RE 4 

LH#4 

eù-:- 

LR#2 

RE 4 

LM#4 

6 1-> 

LR#2 

RE 4 

LR#4 


T 

t 

LH#4 

63-y 

t 

f 

LH#4 

éA-y 

t 

f 

LH#4 

éS-> 

t 

t 

LH#4 

t58-> 

t 

T 

Lft#4 

e?-> 

t 

T 

Lh#4 

b8-> 

t 

r 

LftW4 

69-y 

Miilftll 

T 

t 

LH#4 
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100 REM 


LETTURA DATI MEMORIZZATI 



110 RETI 

1 £0 REM DAL 

130 REM 

1-10 REM M Li S IC-ED XTOR 

150 REM 
160 REM 

170 REM GIOVANNI BELLO * SQFTHARE 1984 

180 REM 

££0 REM 

£30 REM 

£40 PRINT-ii* 

£50 POKE53280 , 8 ! F0EE53E8 1 , £ 

£60 PRINT"^“ 

£70 DIMNTv I00,3 ,£ì 

£30 IhPUT w MOME F ILE “ ì 

£80 0PEHI5 ,By 1 5 , H 1 0 M :GOSUB5?0 

300 OPENE f 8,2, l, 0:f il +NF*+ pl , S , R ,J : G0SUB570 

310 M-M+l 

3£0 FOR J “ 1 T03 

330 FORl-iTOE 

34 0 I FPU Tt* £ , MT-: N . J * lì 

350 1FNTC H,J ( I >^“ lTHEh330 

360 NEXT 

3 70 «KT 

380 GOTO3I0 

330 J-T=I“3 

400 MEXT 

110 MEXT 

1£0 M-M-l 3CL0SES 1CLOSE 15 

430 PR lMT ,, iJÌ OK LETTI 11 N“ TEMP I H 

4 4 0 REM 



•150 REM* ************* *****+**#++*♦* 
460 REM* METTE RE LE LINEE 510 E 520* 





f ; 


. J j |r ~ 

M- 


r--~ 

*' i, 


’’ r «LMÌé 









170 REM* ,E SI VOGLIONO VEDERE I t 

L 1 B0 P EM* DATI LETTI DAL PROGRAMMA t 

1 3 0 ROI J M 1 M M M H M t I f t 1 M M t t Mt 
500 RE! I 

TI '3 -17 1 I- tiri. - 1 roi UPPR.T - 1 T03:FOR I - 1 T0£ 

^£0 REM PPIflTMTO J I ■ ? : HE KT : FR 1 1 IT H " f : MEKT ! PP I NT : ME^T 

5 3 O G □ ! C* E I 3 
■5 liì f'LM 


5^0 REM LETTURA MESSAGGI DI LISTE 
5S0 REI I 

570 I f IFU I ti 1 5 Mf Df ,Cf Df 

SS o ir- H 4 11 O 0 n THE MP E T U Pi i 

590 FPir IT" Jfl ERRORE SU DISCO " 

60O ( J f? I I I 1 H $ " r ' B ¥ , c TO P 
b ! 0 FEV 

El.0 rem reset suono 

E v 0 REM 

£ IO FORI* -5*1g36TO^3B0: POKER ,OiMEKT 
G 5 0 POP E 5 -1 896 , 1 5 3 REM VCL UME 

660 f ’DK E 3-1 £ 77 255 : PDttE54£79 , £55 : P0KE54276 3 3 
E. 7 0 FOT E 5 4 £34 , £ 5 5 ; POP E 54 205 .255: P Q¥ E 5 4 £ 8 3 33 
680 PUF E51291 r £55 : P0FE54 £9£ £55 : P0EE54 290 3 3 
690 HI 54£73:HS^54E80 iH 3-54£S7 
70D L i --5 IE7E : LE -5T879: L3"5-1£G6 
710 REM 

7£6 REM SUOMO MUSICO 
730 REM 

7 10 POPK. *■ 1 TOM 1 - 1 

750 POKEH 1 MT' K . 1 , 1 > :POKEL 1 ,NT< Y , I , £ > 

780 PCPEH2 , NT' K ,E f 1 > '-FO¥ EL£ NT' h ,£ , E > 

770 POP EH 3 , NT* K ,3, I > SPGKEL3 . NT ( K , 3 *2? 

790 PUR J - ITO 19 M IE>:T iPEM RITARDO 
790 NEMTK 

800 R0RK-54£9GTO54360: POKER .0MJEKT 
810 FR 1 NT "SINCOPA" 

3E0 GETA^: I F fi* = 9 S H THEHB40 

8 30 IPAt: ■ ,, N"THEN820 

9 IO PP ! f IT " 4 J rl : M-n- ] 

350 INPUT "DA GUfiLE L OC AZIONE ME MOR 17 70" ' LC 
360 O-OMFLC I0000ORLC >53£4S-Nt GTHENS50 
8~0 FORK'LC TGLC +NTSSTEFG : Q-Q + [ 

S80 POR I - OTQE i FORX -0TO 1 

B30 P0KEK+K + 2M NT*; Q , l + l , M + 1 > ? 

900 NfclYTV 1 ' FF' l NT 1 ME K'T 

READY, 


10D REM 

110 REM MUSIC-EDITOR 

1 £0 REM 
130 REM 






■ 






















140 
159 
190 
£00 
£10 
££0 
£30 
£40 
£50 
£60 
£70 
£80 
£30 
300 
3 10 
360 
339 
34 0 
350 


REM GIOVANNI BELLO 1 30FTHARE 1984 

REM 

REM 

FR INT' 1 tifi? TENDI UN MOMENTO" 

REM 

REM DIMENSIONAMENTO MATRICI 
REM 

DIM F R< 8 r 1 2 > iREH FREQUENZA 

D I M NT' 8,12,2) : REM VALOR I POP E NOTE 

DIM Sf- 12) : REM SIMBOLI MOTE 

DIM mf 100, 3 > tREM SEQUENZA NOTE 

0 I M V L ■: 1 00 , 3 , £ > s REM VALOR I NOTE 

D I M E!f''3 ( 2; : REM PER STAMPA VALOR I NOTE 

REM 

REM 

REM 

REM CAMBIA COLORE DI SFONDO 
REM 

FOFE532S0 -0:POKE53£8 1 ,0 


OTTAVA 


360 

REM 





370 

REM FREQUENZA 

NOTE 

UL T I MA 

300 

REM 





390 

DATA 3 4 33 4 

REM 

C -8 

= 

DO 

400 

DATA 36378 

REM 

Ctt-8 

— 

Opti 

4 10 

0ATA3853S 

REM 

0 -8 

— 

RE 

120 

OATA4083© 

REM 

Dtt-3 

— 

RE# 

4 30 

DATA 4 3£58 

REM 

E *8 

- 

MI 

4 4 0 

DATA45830 

REM 

F -8 

— 

FA 

450 

DATA48556 

REM 

Ftf ~8 

= 

FA# 

460 

□ ATA5 1443 

REM 

C -8 

— 

SOL 

4 70 

DATA54502 

REM 

Gl# -8 

- 

SOL# 

4 80 

DATA57743 

REM 

A *8 

- 

LA 

4 90 

DATAS I 176 

REM 

Att-8 

- 

LA# 

500 

DATA648 14 

PEM 

B “8 

» 

S i 


5 10 
520 
530 
54 0 
550 
5S0 
570 
5SG 
530 
600 

6 10 
620 
G30 
STO 
050 
660 
6 70 
680 


REM 

REM LETTURA FREQUENZE 
REM 

F0RK- 1 TO 1£ 5 READFR*' B,F> ! NEXT 
REM 

REM CALCOLO FREQUENZE ALTRE OTTAVE 

REM 

FDRF -7 TU 13TEP* 1 
POP J - I TO I £ 

FR*: F. y J > - I NT < FR< F. + l * J>/2? 

NEXT 

NEXT 

REM 

REM CALCOLO VALORI NOTE PER PQKE 
REM 

F 0RK = I T08 
FOR J - 1 TO i£ 

A “ I MTC RR< K + J >/£56> 
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B90 B“FR< K . J ) -256* A 
7PB MTt V. . J . 1 >-ft 

719 NTC K, J , 2 > ~B 

720 flEKT 
730 fEKT 
7-10 REM 

750 PEM RESET SUOMO 
760 REM 

770 FORK=5<IS9BTO5‘-1360! POKEK , 0 ! l'-EMT 
780 REM 

790 REM INPUT MOTE 
900 REM 

810 DATAQO . DON , RE , REN , MI , FA , FAN , SOL , SDLN , LA , LO» , S 1 
820 FORK - ITO 1 2 : REAOS»\ K > : MEXT 
830 FORK. = 1TD39:C*=C*+CHR<F': 32 > IMEHT 
9*10 GOTO 1750 
350 PRINT-J" 

SG0 PRIMT-aa INTRODUCI LE GOTE ® NOTA -OTTAVA > ” 

970 M-1SM1-M 
880 REM 

890 REM FS = FINE INTRODUZIONE NOTE 
900 REM 

9 10 PR I UT * 1— TEMPO» • FOR J = 1 T03 

920 HT~ '' aWM ' 1 : TB =■' J - 1 > 1 10 : TC - TB i Q*= “ • Q 1 B*= “ " 

330 PR i NTMfTRBf TC > " — " 

940 PR I NTL.Hr TAB< TB >Q f 

350 FORK* ITO5056ETR»: IFAF" ■" THENNEXT ! GOTO 1080 
9S0 1FASC-: A* ) -20THEHTB-TB - 1 ;GOSUB1230: IFTB< 0THENTB=0 : NEXT : GOTO 1080 
870 !FA$ = ‘■"THEM1910ÌREM FI 
930 IFAT= ’B"THEM2C60 : REM F3 
390 IFAf=‘ji‘' THEN350O : REM F5 
1000 IFfrf- "■"THEN3650 ìREM F7 

10 10 IFA3CC Fé*'- - 1 3THEM' “60 i MEXT : GOTO 1270 
1 0B0 I F fi ¥ ~ ” t* w THEN 1 O50 

1030 IFfi*- " ■“THENK*60 i J“1 :NEXTK . J : GOTO 1 1 <10 i REM F8 

10-10 I F fi .¥ < "ORnf : "THErrEKT : GOTO 1080 

1050 1FLEH; >-1THEH1070 

I0G0 B¥ = Bf+Rf: PP INTNSTAB*: TC >Bf' TB » TB + J 

1070 ME K T 

1080 FRI NTM¥TftB‘t TB^OlT 

1030 FORICI TP50SGETA*: I Ffi* * " " THEHNEXT ? GOTO010 

1 100 IFfi5C< fìf > =H0 THE NTB =TB *- 1 : G05UB 1830 s I FTEK 0THEMTB = 0 ' MEXT * GOTO 910 

1110 IFAT**»*THEN1910SR£M FI 

1130 lFfl*=*«“THEH£0G8iREM F3 

1130 lFffi¥^|* w THEN35005 PEM F5 

1110 IFB^- “irTMENSSSaeREM F7 

f 150 1FRSC' RT > “80THENTB = TB - 1 !GQSUBl£30* IFTB< 0THEHTB = 0 ì f CXTt GOTO910 
i ISO IFftSCC - 13THENK ~60:MEXTSGOTD 1270 
1 170 "THEN1SO0 

I IS0 IFfiT - “ ■" THENK -60 : J--1 s NEKTK , J * GOTO 1 1 1 0 s REM F8 
1130 IFfi£< ”A”-ORfì^> N, 5 M THE-NNEXT:GOTO940 
1E00 IFLETK B¥ > “4THEM1S20 
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1S IO BP IT ITHTTAB 7 T C BT £ T6 ~TB + 1 

1220 MEVTi 6070940 

1 230 PF; I MTWTTABC TC > * — " 

12 4 0 JF„Er I 1 B* • cTHEf JEtf - : RETURN 

l£50 BT^LEFTT< B* - LEM-' BT > “ 1 > s PP I NTUTTAB'* TOBf 
12B0 RETURN 
12^0 REM 

1380 REM CONTROLLO INPUT MQTft GIUSTA 
12^0 REM 

l 300 i F 6 T ~ rt " THENnT- ** " : Bf- " t " s PR 1 NTUlTTABC TC J " ? IJ^TRBC TC - 8f: GOTO 14 10 

1310 FOFK. - 1 TO 1 E 

1320 IFBT^STM >THENh “ 1 3: NEXT : GOTO I 34 O 
1330 NEKT<B^" w lG0,T09£0 

1 34 Q PPHlTUfTflR TC ■ " £ PR I NTH$ TAB< TC : PR INTNTTABC T C+5^ 

1350 GETnT; I Fri li : " 1 "ORAT' n 8 H THEM 1 350 
1360 PR If fTN^TABf TC+5^ *a" AfJ 
] 3"0 GETK T : [FM- 11 ,r THEN1 370 

isso jfasc: k r > - sothen i 34 d 

1330 IFniC'N ' ' 13THEMI37® 

14 CO pR.INTU* TAB v TC+5>A¥ 

Ilio NT N J ? = E'T*riF 

: no ■ iext j ' iFrt: ni treni i-ni £ pr intnt- us ctìgotos 1 0 

I ‘130 r !~H * 1 1 HI -Hi 0OTO9 IO 

M in REM 

1 1 50 REM F 1 f IE H ITPOOUZ I ONE f IO TE 
1460 PP INTRUDI MEMORIZZARE LE MOTE ? " 

LCO GETATì IFAT- " N" THEN 1 750 
1 *90 IFAT "S W THEN1500 
l 19 p GOTO 1170 

15 00 P E M ME M0F IZZAZ 1 ONE MOTE 

t 5 1 0 0FEM15 8 15 M I 0 w £ G05U6 34 70 : I NPUT " BUI IONE GEL F ILE fp ;NF T 
1520 OPEN£ ,8,2, “€0 : " +r Ff + , 8 , li" 

1 5 30 F QFK ~ 1 TOr j: FOR J - 1 TD3 

154 0 FP1MT&2 NTM J ì ? CHPT f 1 3 > f - GOSUB3470 
1 - 50 l JE :T : r JE X T : PF' 1 T IT HE . ”F ir IE " £ CHR Tv i 3 ' £ GDSUB34 7 0 
1560 C LOS E 2 

1 570 PPIMT M JBK- ATTENDI £ ALTRO FILE" 

1 59 D POP I “ I TONI - 1 

1530 FDP J - 1 T03 £ I FMT< I J T ,k TREMO =0 i X 1 =0 £ GOTO 1 660 

1800 QT-^P 1GHTT' NT- I .1 ■ 1 m * 

1610 O^/ALX 0T> 

1620 ril-LBFTf' lir I J> LE N 7 NT 7 1 jr ;■ « - M 
1630 FORM- 1 TO i 2 

1 64 3 IF8T 7 X > ^MTTHENX 1 ->\i K~ 13 : f (EX T : GOTO 1 660 
1650 NE'-’Ts PR lMT"ja ERRORE " : E NO 
1 6 60 7L'' I .1 Psf JT'- 0 M-I 1 1 ì 

16 70 VL 1 ' 1 , J E ■ -MT' 1 0 .XI *£ : ) 

16 80 MEXTVNEST 

16 30 FRIMT'J MEMORIZZO MORENE. 8 E , *'(£ : t H +f iF f + " 3 , H M 1 G0SUB34 70 
1 700 FQPK - ITOMI - 1 SFOP J* 1 T03 ' POP I - 1 TOE 

17 10 PRINTtte VL : ir J 3 1 f CHPT 7 1 3 ¥ * r : G0SUB34 70 
I 720 ME y T £ ME XT ■ ME XT 
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I / J0 EE -IMUF? 1 TOE ■ PP I HTH2 EE-CHRT7 1 3 ■ ; : GOSUB34 70 t fJEKT i 
RRiMTtfE ,ee;chr^: 13 > 


1 7*1 0 
1 750 
I 70n 
1770 
! 780 
1790 
1 600 
*13 IO 
IS28 
1830 
1 640 
1 850 
I U(-e 
1870 
1330 
1 830 
I 300 


G05UB34 70 

FF I NT “fcj" 

F F 1 NT * 1 - 

PP I MT " £ - 
PP 1 NT 11 3 - 

PP I MT 11 4 - 
PR I r IT " 5 - 
PP 1 NT " 6 - 
PRIfJT ,+ 7 - 


C LO SE E ! CLOSE 15 

INPUT NUOVI Orili** 
MODIFICHE DAT I " 
LETTURA OPTI" 

OUTPUT SU STAMPANTE 
ASCOLTO MU3 ICA" 

ME MOR 127 IONE * 

FINE PROGRAMMA" 


I F A * : " \ " ORA? > " 7 " THEN 1330 
a -V al : A?> 

QMQG0TO850 , SE 1 0 2260 , £4 20 , 2980 14*10 

GOTO 1830 

PR f MT ";a » s ETTO 

O P 

REM 



1880 


\ 

\ 

X 



iste REM SE VIENE PREMUTO FI - INDIETRO 
1920 PEM 

1930 REM TEMPO PRECEDENTE 
194 0 IFMt 1 THEM9 10 

1350 f t-fl - 1 t PRIMT“^SDMTEMPOB IMI “N: PR IMI N?C? 
1330 F ORE ~0 TQE 

1370 PR IM™*“aKI*TAB< K* 10 > "■ — « 

1980 NE y.T 

1990 F ORK ~ 1 T03 : TB =< K - 1 ? 1 1 0 

£000 B?-LEFT?C N*( N, K > ,LEN: Hf< N > K > ) "1 > 

£010 A ?“R 1 GH TSC tm H f K > r 1 > 

E0£0 PR INTI L? M aH ,H TAB< TB > BS1-JS “ M" TAB' TB+5>A? 
2036 NEXT 

£040 GOTO910 
E 050 REM 

E0C0 REM SE VIETE PREMUTO F3 * AVANTI 
£070 REM 

2080 REM TEMPO SUCCESSIVO 
2090 IFN-N1THEN910 

£ 100 IFN + 1 *"M1 THEMN-N1 i PR I HTM* " IM'Tf ! GQTng 1 0 

21 10 M=M+ 1 : PR INT"aaMTEMPO "Ns PR INTI-J^C^ 

2 120 FORf. -OT02 s PR IMTM* “MT'TABC K* 10 > " — — : « 

2130 NEXT 

2140 FORK*iT03:TB"< E-J J* 10 
2 150 B? “LEFT N,K> t LEM( N*C N,K>>-1 ) 

£130 Af^iGHT^ NfU’LK.M ) 

2 170 PR 1 MTMT " UT TAB-: TB > B 11 SW" T ABC TB + 5>A? 
2180 NEXT 
£ 1 SO G0TO9 IO 
2200 REM 




2210 REM 

2220 REM MODIFICHE DATI 
2 £30 REM 


Computer Givo - 33 













! 


■ ^ J 

I 










■ 

, ‘, * 


r» .. 

yw: 

1 

: 


ga - jiì 

m 

Li 


££40 

££50 
££60 
££70 
££80 
££90 
£300 
£3 10 
£ 3£0 
£3 30 
£340 
£350 
£36-0 
£370 
£380 
£33 0 
£100 
3 110 
£4 £0 

24 30 
£440 
£-150 
£460 
£470 
£4 90 
£430 
£500 

25 1 0 
25E0 
£530 
£54 0 
£550 
£580 
£570 
£580 
£530 
£600 
£6 10 
£620 
£630 
£640 
£650 
£660 
EB 70 
£680 
£630 
£700 
£7 10 
£720 
£730 
£74 0 
£750 


FRI MT iÉ hjSH INTRODUCI LE NOTE m. MOTA-OTTAVA > 
I3OTO880 
REM 

REM LETTURA DATI 
PR IHT M *J" 

□PENI 5 , 3 , 15 , 11 10 u e GOSUB34 70 
INPUT ‘‘HOME DEL FILE n I MS* N=0 
0PEN2 8 . £ , “0: H + MT + " ,S^R" = GGSUP3470 
N-r 1+ ì 

FORK- ITO 3 i IMPUTttg .M*< N f K) 

J F E - ÌTHEMIFNT' M,K > = "F I ME " THE FÉ =4 SGOTOH370 
NE H T 

GOTO2320 
NEHTK 

CL0SE2 ff 

CL09E 15 

MI =M:M${ N, I ? - * h 
GOTO 1750 
REM 

REM OUTPUT SU STAMPANTE 
REM 

PR T NT 11 LM OU TPUT SU STAMPANTE M" 

PP INT" ligi > SOLO MOTE" 

PRJNT“K> SOLO DATI PER PUK E NO TE M 
PR 1 NT M MB -■ RITORNO MENU FRI MCI PALE" 

GETA* 

IRA*^ ‘ p " THEME4 90 

IFAT “1 W 0RAT> ,, 3 W THEN£490 

Q*VAL< AP) 

OMOGOTO2550 , £7£0 , 1 750 
GOTO2490 

0PEN4 # 4 5 KKS* “ - > '* 

PRlHTtt4/TABC 10>"VOCE I W TAEK 15) “VOCE £ " TAEK 

PR INTtM , TAB< 10 V' P ‘TABC I5>“- — 11 TAB< 

FORK- ITOMI - 1 
K If-MF. Ki l ) 

K£ F^NF< K , £ > 

F.3»sM*r ^3) 

K. l’F-LEFT^ K 1$ + * 

K2#=LEFW. K£* + “ 

F.3^"LEF T T< F.3*+ iJ 
K^-LEFT^C STP i K ) + " 



" ,0) SREM 6 SPAZ 1 
M ,6 ? : REM 6 SPAZ I 
" , G > SREM 6 SPAZ I 
" ,3 ) SREM 3 SPAZ 1 


PR JNTttl ,K.*KK ,FTAB\ 5>K1TTAB< 15)K£^TBBC 15>K3* 
NEXT 

FRUTTI* 4," 3 TOTALE TEMPI" ; NI- 1 

PRlMTtM 

CL0SE4 

GOTO£430 

REM 

REM S TARMA I VALORI DA METTERE NEI DATA 
REM 

FRI NT* J0 ATTEND 1 “ : K.Kfr " - > H s F OR I = 1 TOMI - 1 
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e ^60 FOR J = 1 TG3 : I FI \W> I J)-T THE. NO -0 s X ] =0 : GDTD2830 
2770 OT = F IGHTT\ Hr 1 . J ? . 1 ? 



2GS0 TP I NT tt 1 , TftB< 10 > 
2890, PF INTIMI , TBB( 10? 
2300 FDRK- ITOMI - 1 
29U3 FOP J = 1 TD3 


k, TflB> r 15> 


M TAB-' 15? 


2920 FOR I - 1 T02 

2930 et: j i >-lef rr-: str*c vl< k , j , i +■ 

2 9*10 F’ EXT 



2350 HEX T ! K “LEF Tf 1 ' STR*< K > + u “ 3? SREM 3 SPRZ I 
2989 PR 1 NT tt 1 , K FKK FTAB : 4 >E 1 , l )E’$( 1,2 >TnB' 3 -ET: 2,1? 


3 ? - REM 3 SPAZ I 


ET. 2 - 2 ? TAB-. 3 ?Ef-: 3 , 1 >EW\ 3 £ ? 

29 70 MEKTSPR IMI tt4 , " 3 TG IRLE TEMP I W MI - I J PR I NT tt 4 , : CL0SE4 SG0TQS430 
2980 REM 

2390 REM riSC OLIO MUSICA 
3000 REM 

30 1 0 REMFORK =542961054360 : POKEK , 0 : NE 
3020 FDK.E54296, 15 
3030 POFE54277 ,255 
3040 POK E 54273, 255 



3050 P0KE54276 » 33 
30E0 POK ÈE 54234 , 255 
3070 P0KE54285 ,255 

3030 F0KE54283,33 
3090 POKE542S1 , 255 

8 100 RDKE54 232 ,255 Ifi 

3 J 1 0 PDK E 54 2 30 ,33 •? 

3120 H 1 =54273 
3 130 HE "54289 
3140 H3-54287 

3 150 L 1 "54272 ^>1 

3 180 L2^54279 

3170 L 3=54286 % 

3180 FORI- ITOMI -1 

3 1 90 POR j _ i T03 : l FN*< I , J > = t * THENO -0 : y. 1 =0 : G0T03260 
3200 OS = R H3HT*< N*C I , J > , 1 > 

32 10 CJ-VAL’:0*> 

3220 MV-LEFTC N*< T . J ? ,LETK im I 
3230 FORBITO 12 

324 0 IFS $\ X > -MfTHEMX 1 “X : K™ 1 3 i MEKTX : GOTO3260 
3250 NEXTX SPRINT "UBI ERRORE IH 23 180 “SENO 
3280 VL-: I „ J r 1 ? -NT< 0,X1 f 1 ? 




3270 VL- 1 J ,S) ~NT> r 0,K1 ,2) 


3280 NEXTJ 
3290 NEXT1 
3300 FGRK.MTOMl-l 
3310 PQKEH 1 VL-: K. „ l ( I ) 

3330 POK.EL1 y VL? K , I ,2 > 

3330 P0KEH2 , VL^ K. , £ ^ 1 > 

3340 POKEUS,VL< K,2,2? 

3350 P0K.EH3 , VLf K , 3, 1 J 
3386 P0KEL3 ,VL< K ,3,2? 

3370 FORtts LT099SNEXTSREM RITARDO 

3330 MEXT 

3330 POKEH 1 j 0 

3400 POKEH-2 h 0 

3410 POKEH 3,0 

3 4 20 POKfeLL0 

3430 POKEL2.0 

3440 POKEL30 

34*50 GOTO 17*50 

3 * 80 E r ID : R E M FINE MU SICA 

34 70 IMPUTA 15 , A*, 

3480 I FAT" “00 "THENRETURN 

3430 PPlNT“ja ERRORE SU DISCO "TAS.B^ 

3500 PEM 

35 10 REM SE VIENE PREMUTO F5 = USER 3 RE 
3520 REM 

3530 IFN-N1THEM910 
354 0 FORVIMI + 1T0M+ 1STEP- 1 
3550 F0RXMT03 

3560 w>: y , x :■ -N m r - 1 , k ? 

3570 NEXT 
35B0 ME HI 
3590 FORX- 1T03 
3600 N*< N,X>- - t" 

3610 MEXT 
3620 M 1 =441 + 1 
3630 PR INTUII" SffiTC* 

3640 GOTO3Ì0 
3650 REM 




3660 REM SE VIENE PREMUTO F7 « CANCELLA 


3670 REM 

3880 IFN=NiTH£N9 10 
3 690 F0RY=MT0N1 - 1 


\ 


\ 


3700 F DRV' = 1 T03 

3710 WY,K)=Mf(Y+l,H) A 

3720 MEXT V IR 

3730 NEXT \\ 

3740 M 1 -N I - 1 
3750 PR IMTl<lf*|H ll C$ 

3760 GGTO910 \ 

’i 

READY i 
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20 INESPANSO 




-li gioco consiste ncirabbatiere 3 Ufo 
con i missili in dotazione (IV. 10 ) in due 
mimili. Per colpire PUfo, il mirino deve 
essere soi r apposto ad e^o e non distar- 

.. .. 'V v - •• ' ìì < à ‘ '■■■■'' : </■'< ■ ' 

cato. 


Per ogni Ufo abbattuto si ottiene un 
* ‘bonus” di 2 missili, l a perdila di tutti 
ì missili o lo st adere dei due minuti cnrt- 
sentili fa terminare il gioco. 




Alessandro Rolla 


REM Ht UCCIDI L * UFO . GIOCO PER * * + 
REM +++ VIC 20 INESPAN5D t** 


IGC 
i 10 

130 PCM t + t 0 1 ALESSANDRO ROLLA * * * 
150 : 

i£0 PR I NT " uJ" : POKE 36873 .59IPR1 NT * f 1 UCCIDI 
I70 FRI NT " KttPPiafiyj ATTEPD l UN ATTIMO ' " 

1 C0 PRIMT <M 1 " H M 


190 G09UG 1 1 20 

c00 *R I NT - iJ" : PR INTRUSA IL JGY3TIK PER M 
210 PR I NT " MUOVERE IL MIRI NO E " 

220 PR!MT' , urOLF IRE UN UFO CON" 


£30 PR t NT r ' BUINA BOMBA. 1 ' 

2d0 F'R I NT ' m A 1 10 BOMBE." 

250 PPIMTMPEVI ABBA TTERE 3 UFO* M 

2CC P R 11 IT " UH D OGNI CENTRO V I MC I w - PR I NT " SJDUE MISSILI." 
£70 PRINT w aH — -sREM SHIFT + C 


£80 PR I NT "SPREMI QUALSIASI TASTO" 
£90 GETA^S IFAT"" "THEM29© 
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RI 



300 PRÌNT =iSltr«I DUE MINUTI DI 41 : PR I NT iH EMPO PER ZL GIOCO- 
3 10 PR2NT" *iJ=E PELRLH TUTTI I 
3 (-0 PP INT' HllSSILI .MUORI ! 11 
330 PRINT II «UOHtì FORTUNA* " 

3^0 FRI NT “Il 


3 '50 
3E0 
3 T 0 
330 


GETfh r i IFPt* 
PP INT * J ,r 

P0KE3É: ?6G E 


” THEN 3 30 

: :P0KE3G8?3 ,8 : n^3? 137 s B^37 152 f SI -3887? i yt- 3 


TIS - ”000000" 


- 3 


330 
40 0 
4 1 0 

4‘.0 
430 
440 
4 50 
410 

4 70 
430 
430 
500 
510 
530 
530 

5 40 
550 
560 
570 
5 F 0 
530 
6Q0 
0 1 0 
6£0 

6 30 
640 
£5G 

6 6 B 
£70 
680 
680 
700 

7 ì 0 
720 
730 
740 
750 
760 
770 
730 
730 
030 



FORL*0TQV2 :F'OKE?SS0 + L r 38 : POKE38400 +L ,3 : MEX T 
FORL - 0 T02 1 : FGKE7702+L ,42 ! FPKE38422+L ,4 SfiEXT 
P0KE37154 , 187: POKE 38378 , 15 
y*\ tOX* 1 'M- 1 r 0-67 
POKE“300+X 3 1 :POKE33520+X .7 
POKE'3000-r 1 1 . 3£ ? OOTO550 
D = INTC RND I +4 ,‘+i: 1 F D= 1 THENDX“ 1 
1FD = 2 T H E NO X = - 1 
I F U -3THENDM -22 
I^D -4THENDX--22 
X 1 “X : X^X+DX 

I FX - < -540RX=>S3THENK=XI : G0T0450 
POKE7800+X1 ,32 
FRINÌ " 

[FVRLX T ! - >2O0TH£N 1080 

GOTO 4 30 

PO KEB000 +M r 35 J POKE 33 7 20 + M, 5 
PB^PEEK< ft ? +PEEKX 8 5 
MI -Ms IFBB=34 ITHEM640 
IFBB- 3S3THENM=M-£2 
1 P mB - 355THE NM-M + 22 
1FBB-357 THENM=M- 1 
IFRB ~245THEMM=M+ 1 
1 F M - : -E 77 THENM-M 1 
GOTO 150 


IR 78004X=8000^M THENGOSUB 1200 SP0KE7823+X ,4 1 
POKE 384 3 7 +X - 7 : POKE 384 SS + X , 7 è POKE 3854 1 + X , 7 s POKE 3854 3 + X ,7 
K - M : PGKE7800+X , 3 4 1 F OR I ” 1 TO 1 5 
POKE8060+K +330 ,6 
POKE38720+K *330 ,É 
F OR J - A TO 30 s NEX T 
IF I “5THENG --37 
1F I = ' OTHENG-38 
POKE 5 1 ,220 + I *2 
T - K * K -K “22 
POKE3000+T+33O.32 

NE KT 

POKE 76 80 + V£ ,32 i V2«V2- 1 

G *36 * POKE 8 1 , 0 ^ IFPEEKX 3000 +K 4-330 > = 34 TH EN8 1 0 
IFV2=“ ITHENS70 
GOTO 450 



5 2 O PQKE7300+X ,33i PDKE38520+X .2 
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ì incidi rutti 



8iE:e UF = Tlt 

830 PQftESl ,2S0 

S-10 FOPL = Ì5TG0STEF- t 

8^0 PCKE363 ? 3,L 

BEO POR' *- 1 TO306 * NEXTM , L 

370 PilKf Sì # 0S POKES 1+1,15 

880 F ORE 7 777 +X , 3£ : POPE 7 779 + X , 32 i PPKE782 1 +X , 32 
830 POKE7823+M , 32 : POKE780G + X ,3H 
300 2=2-1 . s IF2=0THEN10Ì0 

S J 3 F OPP - l TO 10; PP I MT " AWIAKI kBQNUS * 

?H0 FORT- 1 TOE00 i r^EXT * FOFES 1 - 1 , BEO : PR I NT 11 SHBBfi 
330 FORT ~ 1 TQS00 s NEXT s P0KE5 1 - 1 ,0iMiXT 
3 10 l 72*V2+£ 

3=i0 TI ” T 1 f 



3P0 ^0 TU 330 


9 i 6 FRI NT NZTU551L I ESAURITI* 

380 PP I T IT '" II* H * y * f * * 1 *4**9 ** M 
330 FF I MT " !®W1ANCQR A C 3 /M 3 u 

1000 30 TO 10*10 

3 0 10 I NT J ' *JB30HPL I ME r ÌT I , HA I V I NT0 " 

iG£0 PP I MT '^t******* *********** *** 

i 03O PR 1 NT " M1ANC0RA C S/N 3 " 

1 0 4 0 Gir mi: IFA*^""THENÌ040 
! 0 = 0 ÌFftW- " S " THE NP R I NT 1 11 = RUN370 

I 060 I FA?* "M" T'HENEND 
1070 GOTO 1040 

1080 PR I NT " iJflTEMPQ SCADUTO" 

1 0 30 PR ] NT "k^**********#** 11 
1100 PR I MT 11 miW TJC ORA C S/N 3 “ 

ilio GOTO 1040 



1 1 20 FORI -0TO5 1 1 =P0KE7 168 + 1 ,PEEKC 327G&+ I 3 :NE/Ì 


* 



1 130 FOP I -0TO7 t SREADA i POKE7440+ I , A : NEXT : RETURN 

1140 DATA £4 ,60,231 ,60,60,24,36,36,01,8,8 

1150 DATA 8,119,9,8,8,60,126,255,255,128,60,24,60 

1160 DATA 60 , 126 . ,186,66 ,24 ,80 ,0 ,0 ,56 , 1£4 

1170 DAT- 56, 16 ,56,0,0,0, 128,37, 18, 4£, 0,40,36, 18 

110? DATA 1,2,4,8,16,32,64,128,128,64 

1190 DATA 36 , 16,6,4,2, 1 , £55 . 255,0 ,0,0, 0,0,6 

1200 PQK.E7777 t-X ,4 1 i P0EE7779 +X , 40 i PQKE7S2 1 +X ,40: RETURN 

RE AD A', 
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QUALSIASI COMPUTER 


Due Semplici ... 
Routine Matematiche 





Esercizi di digitazione utili non 

10 per prender confidenza l ofi tu 
tastiera ma a neh e per "utilizzare" 

11 calcolatore. 


[ programmi! DJ VISORI pernii: Me di 
co nuocere in on tempo rt? La t h ;i niente breve 
(tì'.MT per il numero tulli i va- 

lori per etti un numero X e divisibile. 

La visuali/ /azione >ti due colmine per- 
mette di render visibili i divisori che, mol- 
tiplicali Ira loro, riproducono il numero in 
esame. 

Il listalo PROPORZIONI consente, 
appunto, di risolverli 11 e di verificarle anche 
nei casi in cui vi delibano calcolare le per- 
ceni unii. 


due programmi sono talmente semplici 
che non necessitano di commenti- Sono 
pubblicali in forma "povera 1 \ \l lettore il 
compito dì sofisticarli da un punto di v ista 
estetico e (perché no?) di contenuti. 


( die Meglio, tiiuliaiio Kosm 


1 REM *tx*.t*********t************* ******** ** 
10 REM * L'ANGOLO DEI PRINCIPIANTI! * 

REM SPROPORZIONI CPER QUALSIASI COMPUTER > + 
REM * SEMPLICE LISTATO DI MATEMATICA * 
REM * DI EDI E MIGLIO * 

REM + + * + + * * * ****** * * * * * i *********** 


t 1 

12 

13 

14 

15 
IS 
19 
2 1 
22 

23 

24 
85 
26 
30 


FR I NT 

FRI NT" 1 , VERIFICA PROPORZ IONE " 

PR I NT " 2 - CALCOLO <X> ESTREMA " 

PR I NT" 3 . PROPORZ IONE CON DUE <X > UOUi 
FRI NT "4. CALCOLO <X> MEDIA" 

PR I NT "5 .USCITA " SPRINT 

INPUT "SCELTA" ; SC 

IFSC< ÌORSC>5 THEN25 

ON 3C GOTO 100,300,500,700/900 
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100 
I 101 

J 1 02 

| 103 

i 1 1 0 

Ili 
1 1 2 
Ì 13 

I 1 15 
120 
125 
230 
23 1 
235 
245 
250 

300 

301 

302 
310 
3 15 

320 

321 
330 
335 
340 
345 
34G 

500 

501 

502 
505 
5 10 
515 
520 
530 
535 
540 
550 
555 
558 
700 
70 1 
702 
705 
710 
720 
725 
730 
750 
7G0 
765 


- • v» 








REM 

REM 

REM 

REM 


"T2 " = " T3 



***********#*****+* 

* VERIFICA * 

* PROPORZIONALITÀ 1 * 

********* 4********** 

PR INT" A : B = C i 0 “ : 1NPUT"PR IMO TERMINE” ; Ifl 
INPUT” SECONDO TERM I NE ” t T£ 

INPUT "TERZO TERMILE";T3 
INPUT” QUARTO TERMINE " J T4 
PR 1NT "LA PROPORZIONE "TI* 

K 1 =T1 /T3. 

KS=T3/T<I 

PR INT'E ’ “ ; : IFK I «KETHENPR INT" VERA ■ SGOTC23": 

PRINT"FALSA ■ 

PRINT "PREMI UN TASTO* 

GETW*! IFW*=“ "THENS45 
GOTO 16 

REM ************* 

REM * UNA SOLA INCOGNITA 
REM ************* 

PRINT* A : B = C s X” Ì INPUT "PR IMO TERMINE* J TI 
IM^UT" SECONDO TERMINE ";T£ 

INPUT “TERZO TERMINE ”JT3 
PRINT "QUARTO TERMINE? X“ 

J 1 *TE *T3/T 1 
FRINT”LA <X> E 1 : ”J1 
PRINT “PREMI UN TASTO* 

GETWSi IFLI*=" “THEN345 
GOTO 1S 

REM ***************** 

REM * DUE <X> UGUALI* 

REM ***************** 

PRINT "A : X = X : B " : INPUT *SPR IMO TERMINE”; TI 
PR I NT "SECONDO TERMINE» X" 

PRINT-TERZO TERMINE» X" 

INPUT “QUARTO TERMINE * ; TS 
H 1 =Tt *T2 
G 1-3QRCH1 > 

PRINT" IL TERMINE INCOGNITO 
PRINT "PREMI UN TASTO" 

GETU* : !FW*= * " THEN533 
GOTO I S 

REM ********************* 

REM * CALCOLO <X > MEDIA * 

REM ********************* 

PR I NT " A ! X = B : CM" l INPUT*PR IMO TERMINE " ; Tl 
PR INT'SECONDO TERMINE* X" 

INPUT "TERZO TERMINE 11 ; T2 
INPUT "QUARTO TERMINE * J T3 , 

UJ1 =T 1 *T3/TS / 

PR IMT"L “ INCOGNITA E‘ì"Wl 
PRINT "PREMI UN TASTO" 

GETW*ì IFUÌ»= * "THEN76S 


"Gl 








P 


5 
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766 GOTO 16 
300 REM * ***** * * 

90 1 REM * FINE * 

902 REM ******** 

905 PR I NT "IL PROGRAMMA 

9 10 END 

READY. 


E* ANCORA MEMORI ZZATO" 



70 
75 
80 
85 
36 
90 
100 
L 30 
150 
160 
180 
135 
190 
200 
£20 
£40 
£50 
£60 
£70 
£80 
£30 
300 
310 
330 
340 
350 
353 
355 
353 
360 
370 
380 
330 
400 
4 10 
4£0 
430 
440 
450 
460 
470 


REM 

REM 

REM 

REM 

REM 

REM 


****************** * *************** 

* L * ANGOLO DEL PRINCIPIANTE- * 
*01 VISORE: PER QUALSIASI COMPUTER* 

* SEMPLICE LISTATO DI MATEMATICA * 

* DI GIULIANO ROSSI * 

********************************** 


» 

9 

* 

* 

* 

I 

fr 

jf 

* 

4 








PR I NT QUESTO PROGRAMMA VISUALIZZA TUTTI 
PRTNT H I NUMERI INTERI PER CUI E* DIVISIBILE" 

PR I NT * I L NUMERO I MP OSTA TO - 11 

PR I NT “IL TEMPO DI ELABORAZIONE AUMENTA IN" 

PR I NT H FRQPQRZ 1 ONE CON IL NUMERO DA ANALIZZARE. " 
FRI NT 11 E S . ‘ PER 999993393 E 1 01 B',30 1 


REM +SCELTA VISUALIZZAZIONE* 
P R I NT m i — i B 


PRIMI* ! USCITA 
PRIMI " 1 — , 


! " 


-4 


FR I NT M 13 IV IDEO I w 
FRI NT" !4 | STAMPANTE 1 w 

PR IMT “ * — i " 

INPUT ,J SCELTA < 3/4 ) " P AS 

I F A$ - '3"0RA$~ M 4 “THEN350 
GOTO 3 1 0 
U=VAL<A*) 

PR I NT “01 CHE NUMERO VUOI 
OPEN 1 ^U 


|c 

|E 

'u 

'a 

i 11 


I DIV1S0R I IMPUTA 


/I 


DIVISIBILE PER: 





REM «CALCOLO DIVISORI* 

PR INTUÌ," IL NUBCRO" JftJ "E 
6 = INT < SQR <fi) ) : N=0 

FORC= 1T0B : I Ffì/C * I NT < fì/C )THENG0SUB4 10 
NEXTSGOTO470 

REM «VISUAL IZZfiZ IONE 0IVIS0R1* 

IFC=A/CTHENPR I NT# 1 ,C '-RETURN 
PRINTttl ,C ,A/C:N=H+ t : IFN< >2BTHENRETURM 

IFU03THENRETURN 1 S5SB I gTÌ 

FR 1 NT** 1 , "FREMI UN TASTO FER CONTINUARE “ ì M = 0 
GETfì$: 1FAÌ = ’‘ "THEN450 
RETURN 

PR IMT# 1 : CLOSE 1 : GOTO250 




READY. 
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COMMODORE 64 



Scrolline Tool 



Ln tool di scrolling /tede quattro 
direzioni di schermo per il Com- 
modore 64 

/\jeuni di voi, leggendo il tiLojo, vi sa- 
fanno forse chiesi i se lo scrolling è un 
gruppo musicale che ricalca le orme dei 
Roliing Stones oppure flit sistema ameri- 
cano per scrollarsi più velocemente le pulci 
dì dosso. 

Niente di tulio ciò: lo scrolling è..„ In* 
sciamo a parte un attimo le spiegazioni e 
Facciamo uno piccola prova diruti min ute 
sul computer: 

• premiamo contemporaneamente i tasti 

SlflFT-CLJt HOME. 

• premiamo HI I I RN 5 tolte di segnilo 

• scriviamo: STO IMPARANDO LE 
TECNICHE DI SCROLLINO 

■ teniamo premuto il tasto C'URSGR- 
DOWN (il secondo in basso a desimi 
Noteremo che il messaggio prima digi- 
talo si sposta velocemente verso I aliti, fino 


a scomparire. C he cos'è successo? Il com- 
puter ha applicato allo schermo una muli- 
na particolare, della di scrolling, che ha il 
compito dì spostare la scritta sempre più in 
allo tanto da farla uscire al dì Fuori dello 
schermo. Avviene la stessa cosa eseguendo 
it comando US l\ n con una serie di istru- 
zioni PREVI , nei caso in cui si superi il 
numero delle venticinque righe disponibili. 

P 

I rissiamo cosi concludere die In scrol- 
line è un programma (Basic o L,M,| che 
sposta in una direzione (nel caso esamina- 
to verso Tallol tutto ciò che è presente sul- 
lo schermo allo scopo di creare nuovo spa- 
zio, 

Lo scrolling tool pubblicato serve a For- 
nire al Commodore 64, che ne è carente, la 
possibilità di senili (è E abbrevia /ione che 
si usa normalmente} in tutte le direzioni. A 
che cosa serve, in definitiva, il program- 
ma? Agli impazienti consigliamo di digita- 
re, subito dopo il programma, anche i brevi 
listati dimostrativi. 


E programma contiene, nella Fase dì let- 
tura dei DAI A, controlli particolari di 
check* iim (somma dei DATA stessi) utili 
per rintracciare eventuali errori e fornirne 
il numero di i blocco in cui sono stati digi- 
tati, E sempre consigliabile, ad ogni buon 
conto, registrare il programma subito do- 
po averlo digitato, I Jna maggior prudenza 
non guasta mai ed evita spiacevoli sorpre- 
se, 

( urne vi usa 

Partito il programma (RI seguirà 
una brevissima dimostrazione di controllo 
dopo la qiiah 1 sarà pronto per l'uso, I co- 
mandi sono semplicissimi: si digita it tasto 
di freccia a sinistra (primo tasto in alto a 
sinistra) e subito dopo tu dirczióne o le 
direzioni in cui si vuole eseguire hi se ni Ih I 
carni Ieri che è possibile digitare dopo la 
I recedi a hanno la sola limitazione del nu- 
mero dato dalla consueta lunghezza delle 
righe Basic: non piu dì XP caratteri iri fota- 
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le. 

I csiruf l eri indicanti le quattro direzioni 
derivano dalle iniziali delle puro le inglesi: 
t (up) alto 
1) (dmtn) basso 
R (rigiro destra 
L I lefl ) sinistra 

ucste sono pero le stesse lettere ripor- 
tate tra la riga 11)11 e la riga 130, Non è che 
per caso,*.? 

Esulto: c'è la possibilità di ridefìnire i co- 
mandi per [e direzioni cambiando sempli- 
cemente quelle lettere con un carattere 
qualsiasi!! 

Nella prima versione c'era il set di istru- 
zioni in italiano (A. B, !>, SU ma è una 
sequenza che sconsigliamo dato che è faci- 
le comporre la parola basic ABS con con- 
seguente 7SYNTAX ERROR, E Elia I mes- 
saggio di errore sarà generalo nel caso che 
le lettere poste dopo la freccia non corri- 
spondano parzialmente o totalmente a 
quelle impostate. 

Per rendere i program mi compatibili, qua- 
lunque sìa il carattere-codice scelto, è pos- 
sibile utilizzare le SYS riportate all inizio 
dì ogni routine (vedi righe 290-350). 1 più 
esperti poi ranno notare, dà! l'indirizzo di 
partenza, che la routine di up scroti è pro- 
prio quella del Sistema Operativo del ( - 
6 - 1 , 

L e ultimo avvertimento: a causa del- 
l'aggiunta dei nuovi comandi premendo il 
tasto Return dopo il solo carattere due 
punti (:} non si avrà più '‘READY/ 1 ma un 
messaggio di errore. Accadrà la stessa co- 
sa tentando di porre il solo carattere di 
doppio punto in un riga Basic* 

C ome funziona lo scroti 

Come abbiamo già detto, lo scroti è un 
programma che sposta tatti i caratteri pre- 


senti sullo schermo verso una direzione. Il 
modo io cui agisce è piu semplice di quanto 
possa sembrare* Iniziamo col digitare il 
programma della figura l„ scrìviamo sullo 
schermo caratteri a caso, possibilmente di 
colori diversi, e facciamo partire il pro- 
gramma. 

Vedremo, a partire dall'olio, le righe che 
verrà no copiale in quelle immediatamente 
superiori e avremo un momentaneo effetto 
di sdoppiamento. 

I n seguito la riga inferiore si riempirà di 
spazi vuoti e subito dopo apparirà il mes- 
saggio READY. 

Ora proviamo a scrivere la nuova riga: 

50 GOTO 20 

Otterremo In stesso effetto dell'espe- 
rimento fatto all'inizio premendo il tasto 
CtlRSGR DOWN. 

Analizzando il programma nella riga 10 
troviamo la definizione delle variabili usa- 
le: 

SC' = Inìzio della memoria di schermo 

C O — inizio della memoria colore 

RQV\ numero di locazioni per riga di 
schermo. 

Nella riga 2(1 il ciclo F0R NEXI parte 
dalla riga di schermo Desi conclude con la 
fine della riga di schermo 23, A questo 
punto abbiamo la '"copia” delle locazioni 
di memoria di schermo che per la memoria 
colore. 

La riga 25 provvede a chiudere il ciclo; 
mentre con le istruzioni della riga 30 viene 
riempila di spazi l'ultima riga di schermo, 

Possiamo cosi affermare che per effet- 
tuare uno scrulling si parte dalla prima lo- 
cazione di memoria nella direzione verso 
cui si vuole 'scrollare 1 e sì arriva alla loca- 
zione di Ime schermo meno uno sposta- 
mento, cioè 40 caratteri, In questo ciclo si 
sposta nella locazione attuale il contenuto 
della locazione (il) spostamento, infine si 


azzera la riga entrante per creare mioio 
spazio. 

1 ale procedura è confermata dal pro- 
gramma di dovali scnd I della figura 2, Per i 
programmi delle figuri 1 2 c 3 il concetto 
non cambia. Le uniche differenze consi- 
stono nel fatto che lo spostamento è rap- 
presentalo da CL -colonna, c viene azze- 
rata prima la colonna entrante, quella a 
sinistra per lo spostamento a sinistra e 
quella a destra per lo spostamento a de- 
stra, mentre alla line viene cancellato l'ul- 
timo carattere entrante che prima non era 
presente sullo schermo. 

Le roulìnes LAI. di scrolline toni fanno 
lutto ciò che abbiamo descritto ma, ov- 
viamente, in modo mollo piu veloce. 

I programmi dimostrativi 

Qualche parola si rende necessaria per 
utilizzare i due programmi dimostrativi, 
che vanno usati con hi scrolling tool nella 
versione pubblicata {senza cambiare le let- 
tere che indicano le direzioni j, 

La prima di mostra /ione è urta corsa 
automobilistica a tempo con scrolling ver- 
so il busso, quindi molto più realistica delle 
altre versioni cui siete abituati (avete mai 
visto una corsa in retromarcia?)* 

In questo programma le righe da 9(1 a % 
servono a iniziali zzare il programma, quel- 
le da 1(10 a 139 a generare la pista, e dalla 
riga 140 fino alla 209 per controllare se si 
esce fuori pista o per finire tl gioco. 

L'altro brevissimo programma serve per 
lare scorrere delle scritte sullo schermo. 
Le opzioni '"singola’’ e "multipla” servono 
rispettivamente per fare scorrere Li scritta 
contemporaneamente su una o su tutte le 
righe dello schermo* 

Fabio Sorgalo 


10 REM ** SCROLLINE TOOL ** 
E0 REM ** BY FABIO SORGATO ** 
30 REM fc* ** 

40 REM 

100 Al*-*U"sREM UP C ALTO> 

110 A£S=*D*:REM DOWN (BASSO) 
1£0 A3$- 11 R " » REM R IQHT (DESTRA > 
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130 A4*= "L " : REM LEFT (SINISTRO) 

140 REM 
150 READN ,S 

lf;0 F0RK = 49152TQ49492 s READAsR = R+ 1 !CK,=>CK+fi: 1FR< >N W-ID A<256THEN200 

170 B = B+ 1 ì IFCK< >S OR A >H55THENPR I NT "ERRORE DI DOTI NEL BLOCCO tl "B : END 

180 IF6=5THEN220 

190 CK=0 ; R=0iREADN,S 

£00 POKER ,0 : NEXT 

£10 REM ASSEGNO CODICE COMANDI 
220 POKE49446 ,ASC<A1*) 

£30 F0KE494S6 ,ASC.<A2$> 

£4D P0KE49466,ASC<A3» ) 

£50 P0KE494?g,ASC<A4*:) 

£'30 6YS4942 1 IREM START 

£80 PR INTA'*) *LFROVA SCROLL I NG " F0RT= 1 TQ800 • NEXT 
£90 PRINTA*;*UP SCROLL A =596£6:GOSUB350 
300 FRUITA*.! "DOWN SCROLL” ! A=4S 130! 6OSUB3S0 
310 PR INTASI "R IGHT SCROLL *’ « A = 49329 ! GOSUB350 
3£0 PRINTAf; “LEFT SCROLL ” : 0 = 43249 GDSUB3S0 

330 PRINT"J SCROLL 1NG -TOOL ATTIVATO" 

33 1 PR INT “ESEMP I O : VODDODDDGLLLLLLLRRRRRRDDOOQ * 

33£ «-DDOOOODOLLLLLLLRRRRRRDODDD 

340 END 

350 FORK= 1TO500: NEXT sFORK»! TO30SSYSA* NEXT ‘.RETURN 

1O00 : 

1G10 ìREM BLOCCO 4 1 
1020 : 

1030 SOATA £8,3520 ì REM N' DATI ,CHEC-KSUM 

1040 DATA 189,0,133,2,168,138 

1050 DATA 145,251,152,24,105,40 

1060 DATA 144,2,230,252,184,2 

1070 DATA 192,24,240,5,168,230 

1030 DATA 2,208,234,96 

1390 : 

1 100 REM BLOCCO 42 
Ilio : 

1120 REM ******************** 

1130 REM ** DOLIN SCROLL ** 

1140 REM ** $ C01C,« 49180 ** 

1150 RFM ******************** 

1 160 * 

1170 DATA 69, 1 1 932: REM N* DAT I ,CHECKSUM 
1130 DATA 189,232,133,251,169,192,133 
1130 DATA £53,162,8,160,255,134,252 
1200 DATA 134,254,177,253,145,251 
1210 DATA 138,24,105,212,133,252 
1220 DATA 133,254,177,253,145,251 
1230 DATA 224,3,208,4,192,84 
1240 DATA 243,18,136,203,225,177 
1250 DATA 253,145,251,134,254,134 
1280 DATA 252,177,253,145,251,202 
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1270 OATA 203,208,162,40,169,32 
1280 DATA 157,253,3,202,208,250 
1230 DATA 36 
1300 s 

1310 REM BLOCCO #3 
1320 : 

1330 RÈM ******************** 

1340 REM ** LEFT SCROLL ** 

1350 REM ** # C061,# 49243 ** 

1360 REM ******************** 

1370 i 

1380 DATA 30,12196* REM N' DATI ,CHECKSUM 

1390 DATA 163,0,133,251,169 

1400 DATA 4,133,252,162,32,32 

1410 DATA 0,132,169,216,133,252 

1420 DATA 174,33,208,32,0,192 

1430 OATA 162,0,134,251,232,134 

1440 DATA 253,162,4,160,0,134 

1450 DATA 252,134,254,177,253,145 

1460 DATA 251,138,24,105,212,133 

1470 DATA 252,133,254,177,253,145 

1460 DATA 251 ,224 ,7 ,203,4 , 132 

1430 DATA 232,240,6,200,208,225 

1500 DATA 232,208,220,169,32,141 

1510 DATA 231,7,174,33,208,142 

1520 DATA 231,219,96 

1530 

1540 REM BLOCCO #4 
1550 ì 

1560 REM ******************** 

1570 REM **, R1GHT SCROLL ** 

1530 REM ** * C0B 1 , tt 43329 ** 

1590 REM ******************** 

1600 i 

1610 DATA 32, 14343SREM N‘ DATI ,CHECKSUM 
1620 DATA 169,33,133 
1630 DATA 251,169,4,133,252,162 
1640 DATA 32,32,0,192,163,216 
1650 DATA 133,252,174,33,208,32 
1660 DATA 0,132,162,232,134,251 
1670 DATA 202,134,253,162,6,160 
1680 DATA 255,134,252,134,254,177 
1690 DATA 253,145,251,138,24,105 
1700 DATA 212,133,252,133,254,177 
1710 DATA 253,145,251,224,3,208 
1720 OATA 4,192,25,240,16,136 
11730 DATA 208,225,177,253,145,251 
1740 DATA 134,252,134,254,177,253 
1750 DATA 145,251,202,208,208,163 
1760 DATA 32,141,0,4,173,33 
1770 DATA 208,141,0,216,36 
1780 : 
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1790 

REM 

1 800 

REM 

1310 

REM 

1820 

REM 

1330 

* 

m 

1840 

REM 

1850 

• 

m 

1860 

REM 

1876 

REM 

1880 

REM 

1090 

REM 

1900 

* 

1910 

DATA 

1920 

DATA 

1930 

DATA 

1940 

DATA 

1950 

DATA 

I960 

DATA 

1970 

DATA 

1380 

DATA 

1990 

DATA 

2000 

DATA 

READY. 


** UP SCROLL ** 

** * E8EA ,# 53626 s* 
*************** * 44 *:* 

i 

BLOCCO #5 

tt*H*l*^l**tt*tt*tM*** + ** 

** RICONOSCE COMANDI ** 

** E START $CÌ0D,« 49421 *+ 

*********4***************** 

7 1 ,7459 s REM N 1 DAT I ,CHECK5UM 
163,24 ,141,8,3,163,133,141 

3.3.86.32.115.0. 201.95 
240,3,76,23 1 , 167,32 ,115,0 
201,65, 208 ,6,32, £34 , 232 , 76 

34.193.201 ,66 ,208,6,32 ,29 

192.78.34.193.201 ,88,208,6 
32,177,192,76 ,34,193,20 I ,S3 
208,6,32,97 , 182,76,34, 193 

32. 121 .0. 76. 174. 167.0 



10 SC^ 1024 i CO=5529GiROU-40 
28 POR K-0*ROUl TO 24 *ROU- 1 

2 1 POKE SC +K ,PEEK (SC+K+ROW) SPORE CO+K ,PEEK ICO +K+ROW) 

25 NEXT 

30 FOR K=24*R0W TO 23*R0U -iìPOKE K.+SC ,32 : POKE CG + K.SshCXT 
READY. 



3 : 

10 SC- 1024 :C0-5523St ROW-40 

20 FOR K=24*R0W-1 TO 0 STEP-1:P0KE SC+ROW+K ,PEEK <SC+K ) 

30 POKE CO+RQW+K ,PEEK (CQ+K > s NEXT 

40 FOR K=ROU*0 TO 1 *RDW -HPOKE K+SC,32SP0KE K+C0,6*NEXT 
READY. 


3 REM *** SCROLL SINISTRO IN BASIC *** 

4 i 

10 SC= 1024:CO=552SS!ROW=40!CL= I 

20 FOR K=ROU*0 TO R0W*£4 STEP ROM t POKE K+SC,32:P0KE K+C0,6:NEXT 
30 FORK=ROU*0 TO R0W*23-1 

35 POKE K+SC,PEEK<K+SC+CL> iPOKE K +C0 ,PEEK <K +CO*CL > : NEXT 

40 POKE SC+25*R0U-1 ,32sP0KE CO+25 *ROW- 1 ,8 

READY. 
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- 1 REM IM SC R DLL DESTRO IN. BASIC * * * 

IO se = 5024 :C0=5529S s ROW*40;CL= 1 * 

20 POR K-ROLI* 1 ~ i TO RQU*S3-Ì STEP ROM 
25 POKE K +SC , 32 s POKE K+CO,GiNEXT 
30 FOR K=R0UJ*£5~1 TO RDLJ*0 3TEP-1 
35 POKE K+SC+CL ,PEEK<K+SC> 

40 POKE K+CO+CL,PEEKCK+COÌ ìNEXT 
50 POKE 3C+ROW*0 ,3£iP0KE CO +R0U+0 3 
READY, 


100 REM *** GIOCO APPLICATIVO DELLO SCROLLINE TOOL *»- 

i 10 REM *** *** 

115 REM *** USARE I TASTI VIRGOLA C,> E PUNTO < „ ) *** 

120 REM 

130 PRINT^U" :POKE650, I2S 

140 INPUT "LARGHEZZA STRADA <MAX £0 > NI : IFL >£0ORL<2THENI 30 

150 X-( 40 -L>/£-l 3 Q=£ 0 iPR INT'^" t L"L + 1 ; B= 1 70 : C = 165 

1S0 FORT=0TQ20:PR INT"a n TAB <X )CMR*C B ) ; CHR£<B > ì 

170 PR INTTAB<X+L + 1 >f CHR*CC ) J CHR$CC> i+D ®NEXT 

180 TI $-"000000" 

190 AsINTCRNDCl > *3 > t X 1 =X i R = 0 s Q~0 : B 1 =B 
200 IFA=0THENA$=CHR*C20B> iB**rt*: IFB 1 *BTHENX=X+ 1 
2 10 I FA = 1THENA$«CHR#C205> ! B$=A$i Q^= l : IFB 1 =BTHENX=X- 1 
220 IFA-2THENA$=CHR$<CB > SB$-CHR$(C > :R“ 1 

230 I FX < 10RX+L+R+Q>39THENX=X 1 * A$=CHR$CB > : B$=CHR$ (C) : R~ 1 
240 PR f NT "a’ 1 * TABCX+Q) J A*? TABCL+X+R+Q ) 

250 GETK*: IFK*= ■ "THEN300 
2S0 IFK$ = " , n THEM0=0- 1 : IFD< 1 THEMD = 1 
270 IFK$* " * "THEND-Q+1 £ IFD >37TH£ND = 37 
280 K = 1504 +D 

290 I FPEEK <K > = 320RPE£X CK ) =0 1 THENPOKEK 1 , 32 s *-D 1 POKEK r & 1 * K 1 *K - GOTO 1 90 

300 K- 1504 -40 +D : IFPEEK C K > = 32 THE NP 0 K E K 1,32'- *~D : POKEK + 40 , 8 1 i K 1®K +40; GOTO 190 

310 T**TI«i POKEK U42IF0RK* ITO! 0005 NEXT 

320 PR I NT M LJH A I GIOCATO PER UN TEMPO DI M ; T$ 

330 FDRK=ITO2000i NEXTS POKE 198 ,0£RUN 
READY, 


1 REM *** SCROLLINO TOOL DEMO Ut#* 

2 REM 

io imput m digita una frase"; a$ 

12 REM LA PROSSIMA STRINGA CONTIENE 40 SPAZI 

15 AS = AS+ W • * : REM 

20 INPUT "PUNGOLA 0 a^BLJLT I PLA " ; B$ 

25 IFB$< > “S^ANDBAC > "M" THEN20 


30 PRlNT M *J' f : IFBS^"M ,, THEN60 


40 PRINT" 


I" TAB < 40 ) > 


50 F0RK = iTQLEN<A$) i PR I NT “M" MI D$ C A$ , K , 1 > 


< 

7 


55 *-L ? FORT- 1 TO70 i fJEXT : NEXT = GOTO50 


B0 FORK= ITQLENCA*) : PR I NT " a (, TAB C 40 > ? 

70 FORT - 1 TQ23 ; PR INT "§■!" MIO$< A$,K ,l)f i NEXT S i NEXT t GOTOG0 
READY- 
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Caricamento Rapido di Routine 

IN L.M. 


Come ridurre ai mìnimo i tempi di 
caricamento di programmi in lìti - 
guaggio macchina generati da li- 
stati Basic 

Al liti scopo di effettuare una pratica ap- 
plicazione deU argontcmo proposto» viene 
qui di seguilo il lustrali! la procedura da 
seguire per memorizzare le roultne pran- 
dio dì IX Toma* Vi sarete accorti, infatti, 
che le favolose routine* apparse sul nume- 
ro 14 dì VX X\ hanno due piccoli diretti: 
nem solo è necessario parecchio tempo per 
caricare II programma Basic die le genera 
e le alloca in memoria, ma la lettura dei 
dati richiede altro 1 empii prezioso {e il 
tempo* si sa* è denaro). 

Il breve listalo pubblicato sene » ridur- 
re il primo e od annullare il secondo dHet* 
lo, dato che consiste in una routine Lui 
che sposta i dati delle routine grafiche 
nella /ima bassa di memoria e aggiunge 
automaticamente la riga Basic: 

HI s\s 2W3: new 

Viene inoltre addi/ionala una nuova 
routine l.m, che riporterà i dati* dopo il 
carica mento, nella posizione originale ed 
eseguire le due SYS di partenza Indispen- 
sabili per "ihi/iaUz/an il programma* 
L'uso del programma è multo semplice: 
dapprima si carica r sì ‘Tancia'* il pro- 
gramma Basic che contiene le routines 
grafiche. Si carica quindi il programmino 
pubblicato in queste pagine e lo si fa parti- 
re. 

[.a risposta sarà: 

2SYNTAX EKROR IN 121) 

Non spaventatevi: non avete commesso 
alena errore* 

Il Fenomeno sì spiega col fatto che al ritor- 
tili dalla routine l.in.* r interprete Basic 


non trova dò che si aspettava, ma alcuni 
codici in Linguaggio Macchina senza sen- 
so e genera, di conseguenza, un messaggio 
di errore. 

Eseguile un LIST per controllare che 
tutto sia in ordine tJM S\S2%3 tM VV) e 
poi registrale, col nome che più vi aggra- 
da* il programma generato in memori a che 
non occuperà piò *J Kilobytes* ma i reali l h 
(meno di un quarto dei tempo per ea recare 
ìl programma 1* 


UGO Ori 163; 192 , 133 ,S54 


Ai moment 11 del fit'V inoltri, fa rispo- 
sisi sarà immediata, 

t ome già detto a IL ini /io. i più bravi* di- 
sasselli Mando la routine proposta, trove- 
ranno di sicuro utili indicazioni per appli- 
ca rl;i in .litri casi .ma Itigli i, conte (prelli in 
L’ut min suiti è necessario "caricare" mi 
programma I..M. nei le giuste locarittni 
KAM. ma anche ini pari ire eumandi SYS 


160 .0 , 177,251 
2*13 ,230 ,252 


"ISO OATA145,£53,200>208 

? 120 OATA230 ,254 , 165 .252 ,20 1 , 17,208,233 
I ! |0 DATm3S .58 . I 53 .82 .60 . 134 ,36 
fitè.DY . 


per ini/ialirriirle. 


rubiti Serbali» 


10 

20 

55 

50 

SO 

55 

30 



REM * * *.+.* + % % *+-* t * '» * 1* + e* :* ♦. + *.**## 

rem * * trasferimento rapido di ** 

REI 4 e 1 PQUTT1 ES IN LINGUAGGIO M. #* 

F 61* A - HHiHI’ ♦.*»,* * * * * * imi ». *. ** * ** 

FEf F » BY FABIO SORGATO ** 

RETI* M ESEt-P IO : TRASFERIMENTO IH 
-TI* # ‘DELLE RO UT INES GRAFICHE li ** 

FEM Hi fe HI ******* ** + * **** ********** 
l?C FOM* -2 4576T024C35 :READA*POKEK , A : CK =CK +A: MEXT 
1 IO ]-CK< M57 13THENTRI NT "ERRORE NE 1 DATI * i END 
ITO 2- S24 576 SENO 

1C03 OftTA 1 62 , ES , 133 ,53,96 , 157 .0 ,8 
1115 2 ATA£B2,20S ,£47 , 160,0, 132,25 1 , 163 
1020 DATA 132 , 133 ,252 , 169,64 , 133,253, 1 
ICSC DATA® 153-, 254 . 177 .251 . 145,253,200 
«040 DATASSE , 24S , 230 , 252 , 230 ,254 , 1 65 
1056 DA T fì?54 .201 1 ? ,2©S .233 , 163 ,72 , 133 

1 DEC DATA 4 5 , 1 GS , I S , 133 , 46 ,36 ,0 , 1 3 , 8 

; ere data i 0 . a , 153 . 50 . 4S . 54 , 51 ,se 

1030- DATA 16£ .e.0.0, 163 ,64 ,133,251 
1-3T0 j 3,3, 1 33 .252, 169,0, 133 .253 



CERCASI 


La redazione di Commodore Computer Club vuole potenziarsi e 
ricerca collaboratori part-time e insegnanti di discipline scientifi- 
che e tecniche preferibilmente residenti nell’area di Milano 

i 

Ai collaboratori che stiamo ricercando verrà richiesto di collabo- 
rare alle varie iniziative della casa editrice con articoli, libri, rac- 
colte di programmi e l'italianizzazione di software, di cui abbia- 
mo i diritti d’autore, orientati alla didattica per le scuole medie e 
superiori. 

I prescelti, pertanto dovranno possedere un sistema completo 
di Vie 20 oppure Commodore 64 e sapere progranì mare sia in 
basic che in linguaggio macchina. La conoscenza dell'inglese e 
di altri personal computer è un titolo preferenziale. 


Compensi 

« 

Tutti i lavori svolti su incarico della redazione verranno sempre 
compensati in base ai miglior standard di mercato. 


Primo contatto 

Per incontrarci telefonate allo 02/8467348 chiedendo della si- 

«- 

gnorina Piera 
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Numeri Primi 


N - « Q-.„ ^ 

granulia stampa min serie ili numeri primi 
in Ir riduce ndn gli estremi mler inre l stipe 
riure. L'algoritmo adottato non si basa 
stilla talloriz/a/ione, rna su titi teorema 
formulalo pur la prima vidi a da Pierre de 
Fermai nel liiTU. 

Questo sta hi lisce che su N è mi numero 
primo e II v un intero qualsiasi. allora t; 
elevato alla politi/» “n” - If è ini multiplo 
di Ni; tralascio volutamente ulteriori dulia- 
gli ma (emulici. Per problemi di amilon- 
damento litui si possono superare valori 
maggiori di 1 1U : 6 n>3(». 

f allori primi, un programma realizzalo 
parzialmente in L.M., scompone in fattori 
primi numeri f imi a dieci cifre con il sislr- 
ma delle divisioni per tentativi. 

Uno dei problemi che ha affascinalo e 
impegnalo i matematici di tutti ì tempi è 
senz'altro l T individuazione dei numeri pri- 
mi. 

Fino a pochi secoli fa dimostrare la pri- 
ma lità di un numero di una decina di cifre 
tra un lavoro non da poco dato che allora 
Punico sistema per fare calcoli era del ti 
po... inchiostro, sudore e... carta. 

Per ci la re ori esempio pratico bisogna 



aspettare il 1772 quando ad opera dd ma- 
tematico Leonardo Fulcro, si dimostro che 
due elevalo alla 31 ma potenza (meno lumi 
(— 2147483647) era primo e considerando 
che all'epoca Fulcro era quasi cieco. l'im- 
presa ha davvero dell' incredibile. 

Ai giorni nostri, volendo cimentarsi in 
problemi del genere, non é più necessario 
possedere la genialità di Fulcro c la pa- 
zienza di un certosino, ma è suffìcicnie 
avere a portata di dita un pìccole calcola- 
Iure ed è abbastanza semplice scrivere un 
programma in Basic per testare la primati-# 
là di un numero. 


I numero piti ovvi» e semplice consisti- 
ne! dividere il numero in esame IN per i 
numeri della successione 2, 3, 4... N; se 
qualcuna delle divisioni non dà resto allora 
è trovato un fattore dì N. in caso contrario 

N sarà primo. 

% 

J. possibile migliorare l' efficienza del- 
l'algoritmo limitando le divisioni alla radi- 
ce di N ed dimenando i divisori pari mag- 
giori di due. Anche effettuando le opera- 
zioni piu significative in I,.M. anziché in ba- 
sic coni ritmisi- ad aumentare la velocità 


del procedimento. 

lutti questi accorgimenti sono stati 
adottati nel programma pubblicato e, a 
proposito del numero primo di Eulero, il 
nostri) “064” impiega meno di me zzo mi- 
nuto per dimostrarne la primalità. 

Ovviamente non possono essere immessi 
numeri pili lunghi di 1(1 cifre (fino a due 
elevato a 32) altrimenti il numero sarebbe 
arrotondato e le ultime cifre perse. 

F lavìu M (din ari 
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100 

REM t 

101 

REM * 

! 02 

REM J- 

Ì^S 

■ 

■ 

: 90 

E= 2 i 1 

170 

’VPU^ 

140 

INPUT 

tse> 

\ è i_ 2 ■; i 

155 

PPINT 

180 


170 

FORM - 1 

+ 90 

E -E *6 

! 90 

I R C =■! 

790 

«ir> 'T 

r 

"■ ■ ■■« 


NUMERI PRIMI DI FERMmT 
#+. LISTATO PER OUAL5IAS! COMPUTE 
** 0 ! TFVm : 0 *tl'L ! MAR ! *ILftI NATE 1 

rem base: 

•M.imER I PRIMI OR . . . "SUI : L 1 = l NT •: 
" A ..." : l . 7 . 








_ 





f'O r.ri,( i* ( '■ATTORI «RIMI 

IO' PCM **l LISTATO FEF BN AL SIASI COMPUTER 
ISE T»I )** Ut PLAVTO MULINAR! C LA I NATE ) 








1 07 : 

t ?0 PPINT^ 11 « T I “43306 

! 39 T = ! ITO I I + 103:PFBDU :FOKE I ,UtNEXT 

]4f 79TB E** , 165 -5,- 133 , 142 r 16*5,4, 133 , 14 1 , 165,3 , 133 , 140 , ÌS5 ,2, 133 , 1 33 
143 DflTB 163,6 , 105 ,2 , 133,6 , 133,353, 163, 143, 105,0, 133 , 143,133,35 1 
150 DBTA 56 , 1 73 , 1 ,135, 239 ,6 - 173 ,0,193 ,229 , 143 , 144 ,57 

ì 55 DftTfr i£Z . 15 .533 -6 .355 ,3S,25t , 14 4 ,343 , 103,351 , 105,353, 103,351 , 103,353 
! (T 0 56,16? 141,333,553 133,354,165,143,333,351,133,353,48-8 

165 Df-T f\ 133 , 143 , 185 ,25^ , 133 .14 1,6, 133,33, 140 ,33,141 ,38 , 142,303,308 ,234 
170 74TP 185 . 14 1 . 309 , 157 , 165 , 142 ,803 , 153,36 
190 INPUT "H BATTI TL NUMERO " M = ARS <M > 

n-00 T r M v 4 , 23E3THFNPR 1 f -IT ” #!UtCR0 TROPPO GRANDE H M“:GOTG130 

2 10 PPIMT" " " * 

235 :NTCM/2>THEM250 

r ^0 PRI NT " 2 * » ; : M=M /2 ; IFM*Z THEf 13 70 
T40 89TO320 

245 FFM: imz IALI224 ROUTINE IM L.M. 

259 6 - !*fT'M/S5G> i B= INT /256 ) 5 C * INT C B/256 ) 

880 M* =M-ft*E5e :ME=ftH3.*-236iM3=B-C*23G :M4«C 
270 9 = I NT ■' SOR ; M I + ! > : D 1 = XNT < G X256 > : Q2“Q -Q 1 *256 

290 PDKr? ,M4 ! P0KF4 ,M3 ' F0FE3 .M2 t POKE2 ,M1 

230 P0KE6 t t POKF 1 4 3 , 0 : POKE25 1 ,0 s POKE252 , 0 : F0KE4S 152 , Q 1 JP0KE49 Ì53 ,02 

R00 SYS ■’ I ! > 

? B *PEFK < 1 43 > *256 *PEEK <CG > s 1 NT *' M 70 TH E M37 0 

320 REM: STAMPA FATTORE PRIMO 

370 MpW/ftìPFINTR; s TFMMTHENPRINTt GOTOÌ9& 

340 PRINT* 1 * w ? r T H=H P, "TTrHrr-1770 

350 1^MTP=IMT;M4A>THEN330 

38 9 r -3Tns59 

370 FPT^rTMsGCTO 130 

PE^rv, 
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Ability Game 



COLLISIONE SPRlTE-SPRlTE (loc.5327B) 


nessuna coll. 


0 

0 

0 

0 

0 

0 

0 

0 

S7 

S6 

55 

54 

53 

52 

51 

50 

coll, spnle 3 con 5 
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0 
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0 

■É 

1 

0 

0 

o 

57 

55 

55 

$4 
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Uq.2 


Un gioco semplice e divertente uti- 
lissimo per comprendere la gestio- 
ne delle collisioni tra gli sprite 


M. 


riti di voi, quelli che hanno provato a 
utilizzare sui CRM 64 gli sprite, si sono 
trovati in difficoltà nel realizzare un gioco 
in cui si dovrebbe colpire un uomo alla te- 
sta per realizzare f ad esempio, 100 punti, 
al busto per realizzarne 50 c alle gambe 
per totalizzarne 10, 

Come molti sapranno nel 64 esistono 
due registri che controllano le collisioni 
sprile-sprite e le col lissioni aprile-sfondo. 
Questi registri hanno però un inconve- 
niente: assumono infatti lo stesso valore 
sia che l'uomo venga colpito alla testa, al 


busto e alle gambe, e non sembra possibile 
differenziare le varie partì dello sprite per 
permettere di assegnare a queste diversi 
punteggi. 

Un modo per ovviare alf inconveniente è 
quello di realizzare il nostro uomo non con 
un solo sprite, ma con due o più sprite in 
parte sovrapposti, in modo che il registro 
di collisione assuma valori diversi per ogni 
sezione del corpo e sia possibile differen- 
ziare i vari punteggi, 

Ad esempio possiamo costruire con uno 
sprite la testa e il busto, e con un altro 
sprite ancora LI busto e le gambe, come in 
figura 1. In questo modo U registro rii col- 
lisione può assumere tre valori diversi, in 
quanto può venire colpito solo lo sprite 1, 
solo lo sprite 2 oppure tutti e due assieme, 
realizzando cosi il nostro scopo. 


Naturalmente gli sprite sovrapposti pos- 
sono anche essere più dì due, permettendo 
così di differenziare molte parti di qualsia- 
si “cosa” che possa servire in un pro- 
gramma. 

I registri degli sprite 


Wm 






Vediamo ora di analizzare fuso dei due 
registri di collisione del 64. Gli sprite del 
64 sono 8, numerati da 0 a 7, Come è 
possibile controllare la collisione di 8 spri- 
te diversi utilizzando un solo registro? La 
risposta è relativamente semplice: un 
qualsiasi registro della memoria è formata 
da un byte, ossia da 8 bit {il bit, da Binar? 
digiT* è la più piccola informazione imma- 
gazzinabile nella memoria di un computer. 
Basta perciò associare ad ognuno di 
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fiq.5 


questi bit uno aprite ed a portare il giusto 
bit ai valore I ogni qualvolta vi sia una 
collisione. 


A. 


■d esempio se lo sprite 3 collide con lo 
aprite 5* i bit 3 e 5 dd registro di collisione 
spritc-sprite (che è allocato alla locazione 
53278) saranno posti a I. permettendo co- 
sì, tramite opportune istruzioni ir, di rile- 
vare la collisione, 

La stessa cosa succede nel caso in cui 
uno sprite collida con un carattere dello 
srondo. In questo caso verrà messo a 1 il 
corrispondente bit del registro di collisione 
sprite-sfondo (loc, 53279), 

Le figure 2, 3, 4, 5, 6 aiutano a capire il 
concetta esposta. In queste ligure, SS è il 
registro di collisione sprite-spritc mentre 
SF è il registro dì collisione sprite-fondo. 
Quando leggiamo i registri (con istruzioni 
del tipo PEEK) non vengono forniti i bit a 
1 e quelli a 0, ma il corrispondente valore 
decimale. La conversione da binario a de- 
cimale viene mostrata in fig, 7. Il listato 1 
è una dimostrazione di quanto detto fino- 
ra- 

Descrizione del gioco 


















1^3 


. KUB 







Il gioco che proponiamo è una applica- 
zione di questo sistema. Con. la punta di 
un'astronave dovremo cercare di toccare il 
centro delia base spaziale che si muove ca- 
sualmente (0 quasi) sullo schermo, evitai)' 
do di toccare i bordi della stessa- 

A mano a mano che il tempo passa, l'a- 
pertura di accesso alla base si fa sempre 
più stretta e la punta del l’astro nave più 
corta, rendendo così T agganciamento più 
diffìcile. 

La base è costituita da due sprite; uno 
per il bordo e uno per il centro, mentre 
r astronave è realizzala con un solo sprite. 




m 






s 














e la punta dell' astronave tocca il cen- 
tro della base il registro di collisione sprè 
te-sprile (53278) verrà portato al valore 6, 
mentre se tocca il bordo, il valore sarà 5. 

La figura 8 móstra queste due collisioni. 

Il movimento dell' astronave è ottenuto 
mediante i tasti W, X, A, P. In queste pa- 
gine vengono pubblicate due versioni del 
gioco: una in BASIC, lentissima ma molto 
commentata, che serie soltanto per capire 

-HI 

mm 


? 









' 



;®/; : \y : &- 



/h 



4 m 


' m 



tome funziona il programma. L'altra è un 
misto di BASIC e di L.M. per permettere 
a colarn a cui il gioco piacesse di averne 
tuia versione sufficientemente veloce. 

fSella versione BASIC ’TLM, il livello di 
difficoltà varia da “15" (per i principiarti i) 
a + *0 ,+ per gli esperti. 


Si raccomanda la solita attenzione nel 
digitare le routine in LEVI perclié l'errore di 
un solo dato potrebbe portare al funzio- 
namento irregolare del gioco o addirittura 
all 1 “impastamento" della macchina, co- 
strìgemlu a digitare nuovamente il listato. 

(ìfdincarlo Mariani 


ninnano 

D 7 |D 6 |P 5 l 04 | 03 | 02 |D 1 |OOÌ 


nd:UDO+ 2 xD 1 + 4 xD 2 +BxD 3 ^ 16 xD 4 + 32 xOS+& 4 xD 6 + 128 xD 7 


ES’.. 


0 


Oj 

0 

1 

0 

0 

1 

1 


ndrlxl+2xl+4xO+8xO+16xl+32xO+64xO+128xO--lS 


ng? 


I 

a 

3 

4 

5 


REM ** ABILI TY GAME BASIC ** 
REM ** BY MARIANI GIANCARLO ** 
REM ** (COMMODORE G3 > ** 
REM ** TASTI A , D ^ Ul r X ** 



coUtsiane concentro 


Piolo 1 0 |0 h lì lo I 


Ix 2 +lx 4 rfe 


m -t 


spi 



collisione con tordo 


0 | 0|0 |0 |0 1 1 1 0 | 1 


|xi+lx 4:5 
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13 P0KE532S3 ,0 ! PR INT" L23ATTENOERE PRESO..." 

30 POKE2040 , 1 1 i POKE204 1,13: POKE2042 , 1 4 

34 P0KE53287 ,7 s P0KE33238 ,2 : P0KE53289 ,3 : POKE33280 , I i P0KE3323 1 , 1 

35 P0KE532S3 ,0 ì P0KE53277 ,7 t P0KE3327 1 ,7 
37 REM *** LESSE DATI *.#* 

40 FORK=0TOG2 ! REfìOA ! POKE704 +K .A! SEXT 
30 FORK=0TOG2 ! READA : POKES32 + K ,A: NEXT 
52 FORK=0TO6£ i REAOA ! P0KE896+K ,A:NEXT 

55 RRINT-jJ" SGOSUB 7000 

56 REM 4** INIZ I AL IZ2 . VARIABILI *«* 

57 CLR : TI $="000000“ :C*=“000015“ :□*= "000023“ 

33 A = 150 iB=St • GOSUB60000 ■ U 1 =Q !M=53278 

G0 GDSUB60000 E U2=Q : D 1 =33248 ; V 1 -0 1 + I s 02=0 1 +2 t V2=0 1 +3! G0SUB900 

61 N=PEEK CM) S REM ILESSE REGISTRO DI COLLISIONE SPRITE PER AZZERARLO 

62 IFTI$<=D*THENGOSUB2000 

63 P=PEEK < 137 > ! B=B+(P= 10) -<PM8> t A=*A+ CP*3) - CP*23 ) sREM TASTO PREMUTO? 

64 IFA<30THENA=50 l REM CONTROLLI DI MARGINE 
63 IFA >200THENA=200 

66 IFB<22TMENB=22 

67 IFB>235THENB=235 

88 P0KE53252 , B • P0KE53253 , A t REM MUOVE ASTRONAVE 

63 GQSUB500ìN=PEEK<M) s IFN<5THEN62:REM CONTROLLO ASSENZA COLLISIONI 
70 P0KES32B3 ,0!TA*=TI*i IFN=6THEN300 
72 REM TOCCATO IL BORDO (COLLIS. =5) 
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75 PR INT" 3 TOCCATO IL BORDO DELLA BASE . * 

S0 Pfttm'mi DISPIACE HAI PERSO * 

05 PRINT^MTEMPO : ^TAS 

S0 PR I NT" WÉÈJN' ALTRA PARTITA? <S/N) a 
100 GETA$: IFPi*< > * S * ANDA$< > " N" THEN I 00 
1 10 lFA*= ,, N"THEt'£ND 
1 £0 RUM 

830 REM TOCCATO CENTRO <COLLlS,=6) 

300 PR I NT " LISS5I3R AV ISS IMO ! H H " 

35 0 PR I NT M 1EE I RIUSCITO A TOCCARE IL SIMBOLO" 

315 PR I NT "COMMODORE - * , - HAI VINTOMI " * 

3E0 GOTOS5 

430 REM MUOVE BASE SPAZIALE 
50O P 1 -PEEK COI): P£=PEEK < V 1 ) 

502 PI *P i +U1 :P8=PB+ua 
510 IFPE<50THENP£=50 sU2=-ub 
5 15 I FP2 >200THENP2=S00 ;U2--U£ 

5E0 IFP ì < 22THENP i -££ : U 1 =-Ul 
5£5 IFP 1 >a55THENP 1*£55;U1*-U1 

550 POKEOl ,PHPOKEVi ,P2 : P0KE02 ,P 1 : P0KEV2 ,P2 : RETURN 
890 REM *** POSIZIONI INIZIALI *** 

900 POKEO 1 ,50 i POKEV 1,50! POKEQ2,50 ì P0KEV2 ,50 
310 P0KE53253 ,A ì P0KE53252 ,9 : RETURN 
1000 REM SPR ITE 1 
1005 DATA 0,0,0 

1310 DATA 127 ,255,254 , 127,255,254 
1015 DATA 127,255,254,112,0,0 
1020 DATA 112,0,0,112,0,0,112,0,0 
1025 DATA 112,0,0,112,0,0,112,0,0 
1030 DATA 1 12,0,0, 1 12,0,0,112,0,0 
1035 DATA 112,0,0,112,0,0,112,0,0 
1040 DATA 127 ,255 ,254 ,127 ,255 ,254 
1045 DATA 127,255,254,0,0,0 
1050 REM SPR ITE 2 

1055 DATA 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 
1000 DATA 0,0,0 ,0,0 ,0 ,0 ,0 ,0 
1065 DATA 1,255,224,1,243,224 
1070 DATA 1,236,224,1,223,224 
1075 DATA 1,236,224,1,243,224 
1080 DATA 1,255,224 
1035 DATA 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 
1030 DATA 0,0, 0,0, 0,0, 0,0,0 
1 100 REM SPR ITE 3 
1110 DATA 0,0,0,0,0,0,0,0,254 
1120 DATA 0,1,252,0,1,252,0,15,248 
1125 DATA 0,31,254,0,49,94,0,55,92 
1130 DATA 127,241,24,127,245,216 
1135 DATA 0,49,220,0,63,254,0,31,254 
1140 DATA 0,15,243,0,1,252,0,1,252 
1145 DATA 0,0,254,0,0,0,0,0,0,0,0,0 

1900 REM «CONTROLLO PER RESTRINGERE L'ACCESSO ALLA BASE 
1910 REM «ACCORCIARE LA PUNTA DELL'ASTRONAVE 
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2000 IFTI$=C*THEN£010 
£005 GOTOH025 

£010 F 0K E? 19 y 141F0KE721 , I4SPQKE75I , l4*POKE754, 1 4 : PQKE923 ,.3 1 1POKE326 ,3! 
£0£5 IFTI$=D$THENP0KE7£4 , 14 ! P0KE7a7 , 14 5P0KE745 r ÌAi P0KE748, 14 S FQKE923 „ 

7 s P0KE92B ,1 
2030 RETURN 
6900 REM ** INIZIO ** 

7000 P0KE53269 /0 * PR I NT tì I L 3 TY GAME BY MARIANI G I ANDARLO w 

70 10 PR I NT 11 TEL ■ 0362^72565 * 

7020 PR I NT H MSP RE ME RE UN TASTO PER INI ZI ARE " 

7030 P0KE193 , 0 i LIA I T 1 93 f ì : PR I NT " *2" : P0KE532B9 ^ 7 a RETURN 
59900 REM NUM. CASUALE TRA “1 E 1 PER INIZIO MOVIM* BASE 
00000 Q = C I NT < RMD < 1 >*3>~1 ) s I PQs=0THEN60000 
80005 RETURN 
READY* 


■ 


1 


REM *** ABILITY GAME <VERSIOXE L.M. 1 



2 REM *** 6Y MARIANI GIANCARLO 
4 i 

10 FOKE 53269 , 0 s PR I NT 11 BUATTE NDE RE PREGO..." 

51 FORT =0TO62 ! RE ADA * POKE?04+T,A : NEXT 

52 FORT=0TOG2 : READA i POKE832 +T , A i NEXT 

53 FORT =0TO62 s READA i POKE89G + T , A ! I^CXT 

54 IFPEEK (49 152 ) = 1G5AM3PEEK <43 153 5 =197THEN56 

55 FORT=0TO204 i REAOA s P0KE49 152 + T, A SNEXT 

56 POKE53280 , 1 SP0KE5328 I , 1 i GOSUB7000 i POKE2040 , 1 1 :POKE204 1 , 13 : POKE2042 , 14 

57 POKE53287 ,7 ! P0KE53288 ,2 • P0KE53289 ,5 
5S PDKE53277 ,255 s P0KE5327 1 ,255 

59 CLR* A=150!B=51 :M=53278 

60 GOSUB900 : N=PEEK <M) 1 T I*= "000000 ■ 

53 3YS49345 SN=PEEK (M) : IFN>=253THEH70 
64 GQT063 

70 POKE53269,0!TA*=TI*S IFN*£54THEN300 

75 PR lNT" a JMA3HA 1 TOCCATO IL BORDO DELLA BASE." 

80 PR INT"U4I DISPIACE HAI PERSO" 

85 PRINT"MTEMPO! "TA* 

90 PR 1 NT” HMSJN 'ALTRA PARTITA? <S/N>" 

100 GETA»! IFA*< > H S“ANDA*< > *N“THEN100 
110 IFA*= "N"THENEND 
120 RUN 

300 PRINT" k J*ERAVISSIMO! IMI" 

310 PRINT-BSEI RIUSCITO A TOCCARE IL SIMBOLO" 

315 PRINT*C0M*10DORE. . . .HAI VINTO!!!" 

320 G0T085 

900 POKE53S48 .50 s P0KE53S49 ,50 s PCKE53250 ,50 i P0KE5325 1 ,50 
8 1 0 P0KE53252 ,B : P0KE53253 , A i RETURN 
10O0 REM SPR ITE 1 
1005 DATA 0,0,0 

127,255,254,127,255,254 
127,255,254,1 12,0,0 
112,0,0,1 12,0,0,112,0,0 

^nmiL 


1010 OATA 
1015 DATA 
1020 DATA 
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GATA 112 , 0 , 0 , 112 , 0 , 0 , US, 0,0 
DATA 11 E, 0 , 0 , MS, Q, 0 , 112 , B ,0 
DATA 1 12 , 0 , 0 , ! 12 , 0 , 0 , 1 12 , 0,0 
DATA 127 , 255 , 254 , 127 , 255,254 
DATA 127 , 255,254 , 0 , 0,0 
REM SPRITE 2 

DATA 0 , 0 , 0 , 0 , 0 ,©, 0 , 0 , 0 , 0 , 0 ,0 
DATA 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 
DATA 1 , 255 , 224 , I , 243,224 
DATA i , 236 , 224 , 1 , 223,224 
DATA 1 , 236 , 224 , 1 , 243,224 
DATA 1 , 255,224 

DATA 0 , 0 , 0 , 0 , 0 ,0 , 0 , 0 , 0 , 0 , 0 , 0 
DATA 0 , 0 , 0 , 0 , 0 , 0 , 0 > 0 , 0 
REM SPRITE 3 

DATA 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,254 
DATA 0 , 1 , 252 , 0 , 1 , 252 , 0 , 15,248 
DATA 0 , 31 , 254 , 0 , 49 , 94 , 0 , 55,92 
DATA 127 , 241 , 24 , 127 , 245,216 
DATA 0 , 49 , 220 , 0 , 83 , 254 , 0 , 31,254 
DATA 0 , 15 , 249 , 0 , 1 , 252 , 0 , 1,252 
DATA 0 , 0 , 254 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
REM *** DATI LM È** 

DATA 165 , 137,20 1 , 10 , 240 , 13 , 20 1 ,18 
DATA 240 , 23 , 201 , 9 , 240 , 33 , 201, 23 
DATA 240 , 43 , 36 , 206 , 4 , 203 , 173 ,4 
DATA 20 S ,20 1 f 22 , 203 , 3 , 238 , 4,208 
DATA 36 , 238 , 4 , 208 , 173 , 4 , 209,201 
□ATA 255 , 208 , 3 , 206 , 4 , 208 , 96 ,206 
0 ATA 5 , 203 , 173 , 5 , 208,20 3 , 50,208 
OATA 3 , 238 , 5 , 208 , 36 , 238 , 5 ,208 
DATA 173 , 5 , 208 ,20 1 , 200 , 208 , 3 ,206 
QATA 5 , 203 ,36 

DATA 238 , 0 , 208 , 238 , 1 , 208 , 173,0 
DATA 208 , 141 , 2 , 208 , 173 , 1 , 208, 141 
DATA 3 , 208 , 173 , 0 , 208 , 20 1 , 22,240 
DATA 16 , 201 , 255 , 240 , 12 , 173 , 1,208 
DATA 201 , 50 , 240 , 14 , 201 , 200 , 240,30 
□ATA 9 G , 173 , 75 , 192 , 73 , 32 , 141,75 
DATA 192 , 36 , 173 , 79 , 192 , 73 , 32, 141 
DATA 78 , 1 32 , 36 

DATA 165, 16 1 , 205 , 60 , 3 , 240 , 6,205 
DATA 6 1 , 3 , 240 , 24 , 96 , 163 , 14,141 
OATA 206 , 2 , 141 , 209 , 2 , 141 , 233,2 
DATA 14 1 , 242 , 2 , 169 , 31 , 14 1 , 155 ,3 
DATA 14 1 , 158 , 3 , 96 , 169 , 14,14 1 ,212 
□ATA 2 , 141 , 215 , 2 , 141 , 233 , 2 , 141 
DATAS 36 , 2 , 169 , 7 , 141 , 155 , 3, 141 
DATA 158 , 3, 96 

0 ATA 32 , 134 , 192 , 32 , 0 , 182 , 32,75 
DATA 132,36 
OATA 3 ,96 
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7000 PR T NT " J3FtB . GANE BY MARIANI GIANCARLO* 
7010 PR I NT n TEL , 0362/72565MB* 

7015 INPUT"DIFF 1 COLTA ' <1-250)";DI 

70£0 IFDI < 10RDI >250THEN7000 

7025 POKE828 ,OI :P0KE829,DI +3 

7110 PR INT"U" :POKE5326S,23S 

7120 POKE49227 , 238 :POKE49230 ,238 : RETURN 

READY. 


10 REM ABILITY GAI»E« INTRODUZIONE 

20 REM LISTATO PER PROVARE 1 REGISTRI DI COLLISIONE 

30 . * - 

31 CS=53278 s REM REGISTRO DI COLLISIONE TRA SPRITE E SPRITE: 

32 CF =33273: REM REGISTRO DI COLLISIONE TRA SPRITE E SFONDO 

35 00=53248: REM COORD. ORIZZONTALE SPRITE 0 

36 V0 =53249* REM COORD. VERTICALE SPRITE 0 

37 01 =53250: REM COORD. ORIZZONTALE SPRITE 1 

38 VI =5325U REM COORD. VERTICALE SPRITE 1 

40 POKE 2040 ,11: REM SELEZ . BLOCCO DI NEM. 1 1 CLOC .704 > . SPR ITE 0 
4S POKE 204 1,11 SREM IDEM COME SOPRA PER SPRITE 1 

50 FOR K = 704 TO 767 : POKE K,255:NEKT K s REM RIEMPIE IL BLOCCO CON 235 
60 POKE 53287 ,0! REM SELEZIONA IL COLORE NERO PER LO SPRITE 0 
65 POKE 53288,7 8 REM SELEZ IONA IL GIALLO PER LO SPRITE I 
70 0= 100! V= 100: REM COORDINATE DI PARTENZA 

8B P0KE53P69 ,3: REM ACCENDE GLI SPRITE 0 E 1 <0000011*. 1+2 = 3) 

90 PR I NT " JtfsiffiHHnir ; TAB< 19) f "A * JREM SCRIVE UNA "A* SULLO SCHERMO 
100 REM *** PRIMO CASO: NESSUNA COLLISIONE *** 

110 POKE 00, 30: POKE V0, 110: REM POSIZIONA LO SPRITE 0 A 30,110 
120 POKE 01, 30: POKE VI, 170: REM POSIZIONA LO SPRITE 1 A 30,170 
130 GGSUB 10000 

140 REM *** SECONDO CASO: COLLISIONE SPRITE CON SPRITE «*# 

150 POKE VI, 120> REM SPOSTA SPRITE 1 SOPRA SPRITE 2 
160 GOSUB 10000 

170 REM *** TERZO CASO: COLLISIONE SPRITE 0 CON SFONDO *** 

180 POKE 00 , 160 : GOSUB 10000 

190 REM *** QUARTO CASO: COLLISIONE SPRITE 1 CON SFONDO *** 

200 POKE O0,30:POKEO1 , 160: GOSUB 10000 

210 REM *** QUINTO CASO: COLL IS IONE SPRITE 0 E 1 CON SFONDO *** 

220 POKE 00, 180: POKE V0, 951 POKE VI, 120: GOSUB 10000 
230 REM *** FINE #** 

235 POKE 53269,0: REM “SPEGNE" I 2 SPRITE 
240 PR 1 NT • LHUF INE": END 
9993 END 


1000D REM SCRIVE SU VIDEO I DUE REGISTRI DI COLLISIONE 

10002 A = PEEK <CS ) 8 A=PEEK <CF ) : REM AZZERA I DUE REGISTRI 01 COLLIS. 

10005 PR I NT “ BCOLL I S I ONE SPRITE CON SPRITE: “ )PEEK<CS) 

10010 PR INT’COLL IS IONE SPRITE CON SFONDO: ■ ;PEEK<CF) 


10020 
1 0030 
READY, 


PR IMT“ 


i .< ■ ’ + 


SBFREMI UN TASTO 


ri 


POKE 138 ,0 : UA ITI 93 , 1 : RETURN 
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Il Plotter 1520 


Tutte le istruzioni della periferica 
spiegate attraverso semplici esem- 
pi* 

La 1520 è una stampante grafica a 4 
colori. Ciò che interessa sottolineare è che* 
al momento dell'accensione, stampa 4 
quadratini. 

Se i pennini sono stati inseriti nei modo 
corretto, i. colori dei quadratini detono es- 
sere, da sinistra a destra* blu — verde — 
rosso — nero* L'area traci- tubile ha le di- 
mensioni dì 480 punti (numerati da 0 a 
479) nei senso della larghezza (che chia- 
meremo asse X). e E/-999 punti (numerali 
da 0 a +/- 998 1 nd senso delia lunghezza 
(che chiameremo asse ì ), con risoluzione 
di 0.2 mm. 

Ciò signi fica che lo spostamento minimo 
del pennino è di 0,2 nini. La larghezza 
'utile'’ risulta perciò essere di 96 mm* 
(480*9.2) mentre la lunghezza “utile” di 
+/- 199.8 mm. (999*9.2). 

Se volete fani un'idea dell'area traccia- 
bile* digitate il programmino di figura 1 
assicurandovi, dapprima* di avere a dispo- 
sizione almeno 25 em* di carta. 

Comandi Basic 

I comandi Basic che è necessario usare 
di frequente co! plotter sono i seguenti; 

• OPEN: sintassi OPEN Ifn, den* sa 

Questo comando crea una relazione tra 
la periferica usala (il plotter* nel nostro 
caso) ed un certo file. 

Ilo: è il numero del file logico 

dn; è il numero della periferica (nel nostro 

caso (t) 

sa; è l'indirizzo secondario* cioè iU modo in 
cui il plotter vi erte istruito per compiere un 
certo lavoro* 

\ pagina 29 del manuale d’uso, potete 
trovare una tabe Ulna di corrispondenze Ira 
i numeri dei file logici (Ifnj e gli indirizzi 
secondari (sa). 


CMD4 

lret| 

LIST 

[re*] 

PRINT#4 

[reti 

CLOSE4 

[reti 


Volendo, si può stampare anche solo una 
parte di programma modificando l'istru- 
zione LISI con raggiunta del numero di 
linea iniziale e finale relativi ulta parte di 
programma che si vuole stampare* proprio 
come Mele abituati listando su video. 

Esempio: USI 1911-209 

Il programma verrà listato usando 49 
caratteri per linea. 

Se avete già provalo a listarne uno* magari 
di sole HJti lince, vj sarete accorti, guar- 
dandoti allo specchio* che nel frattempo 
siete invecchiati; è* intatti, necessario cir- 
ca un quarto d'ora! Il fatici òche il plotter I 
caratteri se li deve costruire uno per uno. 
Fra l’altro, non riesce a costruirli nemme- 
no tutti! 

I caratteri iri reverse del modo virgolette 
e i caratteri grafici non coincidono con 
quelli del video. Un modo per dimezzare 
(circa) ri tempo per un listalo, e quello di 
stampare nel modo a 80 caratteri per linea 
consigliato solo a chi ha una buona vista 
oppure a chi ha unu spirito da martire. 

Indirizzi secondari 

Col comando OPEN abbiamo parlato dì 
indirizzo secondario* affermando che que- 
sto è I onico modo per istruire il plotter a 
compiere luta certa operazione. 

Piu in dettaglio tali operazioni sono: 


Operazioni Indir, set. 

Stampa caratteri Ascii 9 

Coordinale X, Y per grafici 1 

Selezione colore 2 

Selezione grandezza carattere 3 

Selezione rotazione caràttere 4 

Selezione tratteggio 5 

Selezione ma iuscoUi/m muse. 6 

Reset del plotter 7 


• PRINTtf: sintassi PRIM# tfn* <ar> 
Ricordiamo esplicitamente che la parola 
FRINÌ, in questo caso* non può essere ab- 
breviata col punto interrogativo (?)* 

IL senso di questo comando è analogo a 
quello dì Prini solo che l'output è riferito 
al plotter 

lln: è sempre 11 numero del Hle logico che 
deve essere prima “aperto 1 * con I 1 istruzio- 
ne Open 

var: questo punto lo discuteremo in seguito 

• CLOSE: sintassi CLOSE Ifn 

( hiude il file logico (IFn) precedente- 
mente aperto, 

Un semplice esempio de IT uso di questi 3 
comandi lo potete avere digitando in ma- 
niera diretta (senza, cioè* numero di linea) 
le seguenti istruzioni che hanno il solo sco- 
po di resultare il plotter: 

OPF.N 7, 6, 7 |rel] 

BRINI#? [rei j 

CLOSE 7 [rei) 

• CMD: sintassi CMD Ifn, <var> 

Questo comando trasferisce la stampa 

dal video ad un file logico specificato (Ifn). 

Questa istruzione va usala* in genere, 
solo in modo diretto per ottenere, tra l’al- 
tro* il listalo di un programma Basic. 

Le istruzioni sono le seguenti: 

OPEN4, 6 |ret| 

PRIVI #4 [ret[ 
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Per ogni operazione desiderala, occor- 
rerà aprire (OPEN) un file e, di conse- 
guenza, completare il comando PRIN'1# 
cui numero del Pile aperto, al quale corri- 
sponderà un cerio indirizzo secondario 
■ 

(come vedremo piu avanti). 

Con il computer C ommodore il numero 
massimo di Rie che si possono aprire con- 
temporaneamente è IO . Dalla tabella pre- 
cedente si vede che il numero di indirizzi 
secondari è 8, a cut corrispondono 8 File. 
Ciò significa che in uno stesso programma 
possiamo utilizzare tutte le operazioni die 
il plutter è in grado di svolgere. 

p„ evitare confusione, come suggerito 
sul manuale d'uso, è opportuno usare i se- 
guenti numeri convenzionali per indicare i 
vari File: 


Numero file Ind. sec* Esempio 


4 0 

1 I 

2 2 

3 3 

44 4 

5 5 

6 6 

7 7 


OPEN 4, 6 
OPEN 1, 6. I 
OPEN 2 n 6, 2 
OPEN 3. 6, 3 
OPEN 44, 6,4 
OPEN 5, 6, 5 
OPEN 6, 6, 6 
OPEN 7, 6, 7 


Riassumendo le operazioni necessarie 
per svolgere una certa operazione, sono le 
seguenti: 

nn OPEN lfit* dn, sa 

nm PRINT# ifn <,var> 

min CLOSE Ifn 

dove nn, nm, miti sono numeri di linea. 

Esaminiamo ora in dettaglio ciascun in- 
dirizzo secondario (SA sta per "secondarv 
address"), 

• SA— 0: stampa i caratteri Ascii 

Il formato del comando PRINT# è il se- 
guente: PRINT#4, “dati” 

II numero 4 è quello del file logico asso- 
ciato a questo indirizzo secondario (vedi 
tabella precedei] le}* Tutto quello che si 
trova tra virgolette, verrà stampato cosi 
conFè. 

Per chiarirvi li idee, potete digitare il 
programma di pagina 21 del manuale d'u- 
so, Ora provate ad aggiungere questa li- 
nea: 145 PRINT#4 

Le scritte precedenti verranno separate 
da una riga vuota, proprio come succede 



quando usate l'Istruzione Prinl. 

En qualunque posizione si trovi il pennino, 
dopo Print#4 si riporta all'inizio e scende 
di quante righe volete. 

Un 'ultima cosa da sottolineare, e che 
I indirizzo secondario 0 è il valore di DE- 
FAI i T, cioè può a nelle essere omesso nel- 
l'Istruzione Open, poiché verrà assunto 
automaticamente. 

Al contrario, se dimenticate di specificare 
r indirizzo se coda rio (SA) in Open, questo 
verrà assunto come 0* 

• SA— 6: seleziona maittseolo/ni muse. 

Il formato è il seguente: 

PR1NT#6, n 

In cui *V può assumere i valori “0" 
oppure *T\ 

lì valore <1 corrisponde alla stampa 
normale, ossia caratteri maiuscoli. A IT ac- 


censione, il plotter si trova in tali condi- 
zioni. li valore 1 corrisponde, invece, ai 
caratteri minuscoli. 

Praticamente, l'effetto dell'Istruzione 
PRfN I'#6, l è analogo a quello che ottene- 
te per il video premendo il tasto [C] 
-KSIIIFT. 

.Se omettete verrà assunto automa- 
ticamente il valore li (valore di Defan il). 
L’effetto di questo SA lo potete vedere di- 
gitando il programma di figura 2, Se vole- 
te evidenziare i caratteri maiuscoli e minu- 
scoli in una stessa parola, potete operare 
portando il video a caratteri minuscoli e 
digitando il programma di figura 3. Il mo- 
do ivi descritto non è runico per ottenere 
caratteri maiuscoli e minuscoli. 

Dopo aver fatto girare un programma 
con un’istruzione PRlNT#ó, 1 il p lotte r 
rimane nei modo minuscolo. Se lo volete 
riportare nelle condizioni normali, digitale, 
in mudo diretto, queste istruzioni: 

OPEN 6,6, 6 

PRINT# 6 (0) (non occorre digli are *ii) 
CLOSE 6 

• SA— 2: seleziona dei colorì 
Il formato è il seguente: 

PREM #2, C 

In cui "C è il numero del colore desidera- 
to* Piu precisa m ente: 

NERO C=0 

BLU C=l 

VERDE C=2 

ROSSO C— 3 

Questa corrispondenza è icra solo se i 
pennini sono stati inseriti nella giusta posi- 
zione. Se non usate affatto questo Ind. 
Sec., il plotter stampa automaticamente in 
nero* 

Utilizzando nuovamente il programma 
di pagina 21 (manuale d’uso), apportale 
queste modifiche: 

125 OPEN 2. 6, 2 

135 PR1N ! #2, C : 'REM Zambia colore* 

145 PRINT#4 : REM*saita una riga* 

1 46 C=C+1 : REM*increnienfa C* 
170 CLOSE 2 

* SA- -3: seleziona grandezza carattere 
Il formato c il seguente: 

PRINT#3, M 

Con questo indirizzo, si può scegliere 
Ira 4 dimensioni diverse per stampare i ca- 
ratteri Ascii- 

M può assumere valori tra 0 e 3, seetm- 
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do la segucnle tabella: 


Numero 

0 

ì 

2 

3 


Dimensione carattere 

HO caratteri per linea 
40 caratteri per linea 
20 caratteri per linea 
IO caratteri per linea 


L'esempio dì pagina 30, penso sia piti 
die sufficiente come dimostrazione. 

Tenete comunque presente che, se volete 
'scrivere' qualche parola o frase col plot- 
ter, bisogna sempre richiamare SA— 0, e di 
conseguenza il [ ile logico numero 4 : que- 
sto è fatto nella linea 12(1 (dove lo 0 è 
omesso; vi ricordate perché?,.. Va bene, ri- 
spondo io: J 1 indirizzo secondario numero 0 
è l'indirizzo di DEFAULT), 

Fatto questo, tutto quello che volete 
scrivere deve essere preceduto da 
PRINT#4, („.) (cfr« linea 170), 

Fissate ora I 1 attenzione sulla tinca 195. 

Questa riporta il plotter nelle condizioni 
normali, cioè 40 caratteri per linea (M~l 
valore di DeFault per questo indirizzo). Se 
questa linea fosse omessa, tutte le volte 
che vorreste scrivere qualcosa, questa 
avrebbe le dimensioni dell'ultima M impo- 
stata (nel nostro caso M=3; Iti caratteri 
per linea). 

In precedenza avevo detto che un modo 
per dimezzare il tempo di un listato era 
quello di usare SO caratteri per lìnea. 

Se volete provare, dopo aver digitato un 
programmino di prova, osate queste istru- 
zioni in modo diretti»: 

OPEN4, 6 

OPEN3, 6, 3 

PRINT#4 

FRINÌ# 3, 0 

CMD4 

LIST 

PRINT#4 

FRINÌ #3, I: REM * riporta nelle condi- , 
/ioni normali* 

CLOSE4 

CLOSE3 

• SA— 7: resetta il plotler 
Formato: 

PRINT#7 

Questo indirizzo, come già visto in pre- 
cedenza, serve per reset tare i] plot ter. No- 
nostante le apparenze, devo dire che que- 
sto comando è veramente importante. 



Commodore M: il lìen «Malore vide* ■ 

Quando si fa girare un programma che 
usa, per esempio, vari colori e varie dimen- 
sioni per i caratteri, k condizioni finali ri- 
mangono quelle impostate per ultime dal 
programma. 

Per un ritorno alle condizioni normali, bi- 
sogna operare con le istruzioni indicate nei 
programmi precedenti* 

Per evitare tulli questi fastidi, basterà 
scrivere, alla fine del programma, l'Istru- 
zione PR1NT#7 preceduta da OPEN 7, 6, 
7 e seguita da CLOSE 7, 
Automaticamente, infatti, il plotter ver- 
rà resellato, cioè tutti gli Indirizzi Secon- 
dari assumeranno il valore di DI 1 Al LI; 
a conferma di questo, verranno anche 
stampati i soliti 4 quadratini. 

• SA— lì plot X, V 
Formalo: 

FRINÌ# 1, lL SottO“( ornando ' (,X> V) 
Questo indirizzò rappresenta il "cuore” 
del plotler: fornisce, infatti, la possibilità 
di controllare tutti i movimenti del pennino 
airinterno dell'area tracciarle discussa 
all'Inizio. 

p 

Molti esempi d’uso di questa istruzione 
li trovate sul manuale e nei programmi 


pubblicati sol n, 16 di questa rivista. Per 
chi li trovasse troppo complicati, cerche- 
remo ora di illustrare i vari Sotto-Coman- 
di in modo semplice, 

I Sottocomandi ;i pennino sollevalo 

• Sotlo-C'o mando H: PKINTffl. *‘H" 
Riporta il pennino al punto di partenza, 

(pennino SOLLEVATO) dato dalle coor- 
dinate X=(K V=tì, 

Inizialmente, il punto 1 0.1) | è nella posi- 
zione di HOME (casa=ORlUINE AS- 
SOLI I -V), cioè nella posizione che assu- 
me il pennino al momento dell'accensione, 
\ edremo che esiste la possibilità di spo- 
stare il punì a (0,0) in qualsiasi posizione 
dell'area traccia bile 

• Sotto-Comando M: PRIIvm. "\r, 

Y 

Sposta il pennino nella posizione \, \ ri- 
spetto airOrigine Assoluta (ho me) leoni- 
no SOLLEVATO, 

Provate a digitare il seguente program- 
ma; 

Kl OPEN 1,6, 1 

2(1 PRINT#I, *'M", 240, Il 
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m PRINT#!, "H" 

500 CLOSLi 

V iseu cosa s ucce ile? Praticamente nien- 
te? il pennino si sposta al centro deli asse 
X {in eliettì, il centro è 239.5) e poi ritorna 
in Home. 

Allungete la Kin ea: 

30 i*kin r#i, 44 r 

Il pennino ora si ferma nella posi /ione 
ceni rafie. La linea 3IMHRIN l#L “hi co- 
munica al pennino di tornare nelLorigine 
(0,0). solo che ora il punto (l) t 0) si trova 
nella posizione X 240, \ 0 rispetto al- 

rOrijEjinc Assoluta. 

* Sotto- Comando I: PRINT#1, *r 

lassa la nuova origine {ORIGINE ME- 
LATI A V Xo, Yo) nel punto X, ^ determi- 
nato dal tritio- coniando "M': nel nastro 
caso X 240, Y- 0. Come detto neU'inlro- 
du/imie, l’asse X ha a disposizione 4HU 
pumi (da II a 479); essendo ora l'origine in 
X" 241), potete muovere il pennino verso 
sinistra al massimo di 24(1 punti e terso 
destra di 23 l >. 

Se l'origine relativa fosse in X UHI, V 0 
si avrebbero a disposizione UH) punti a si- 
nistra e 379 a destra, e cosi via. 


• Snllo-C ornando ì( PRINT# l «”, \. Y 
Porta il pennino nella posizione X, \ re- 

Èaiiva all'Orìgine Relativa Xo, Yo (penni- 
no SOLLEVATO). 

Sut loct> mandi a pennino abbassate» 

I Sotto-t omandi visti I inora, sono tutti 
sotto-comandi a "pennino sollevato", (peti 
tip — nuovi* cine vengono eseguiti senza 
che sulla carta sia traccialo niente. 
Esaminiamo ora « comandi a "perni ilio ab- 
bassato ' (pui down — draw), 

• Sotto-Comando Jj PKIN l#I, X, Y 
Traccia la pose/ione X, 3 rispetto all'o- 
rigine relativa \o* Yo. 

Provate a sostituire In lirica 3(1 con: 

30 PRINT#K *\r, UHI, 0 

• Sotto- (Ioni andò D; PRIA r#1, "ir, X* 
V 

Traccia la posizione X, Y rispetto all’o- 
rigine assoluta, partendo dalla posizione in 
cui si trova attualmente il pennino* Sosti- 
tuite la linea 3(1 con: 

30 PRIM I #1, ‘*D'\ UHI, 0 
Ora aggiungete le linee: 
ti OPEN 4 , 6 


4011 PKIIYIM 
510 CLOSE4 

La linea 40(1, se vi ricordale, serve per 
saltare una riga. 

I titi!' le volte che il programma incontra 
questa istruzione, il pennino viene ri pori il- 
io nella posizione di HOME: può quindi 
servire per reseti are il pJotter. AH en/ ione 
però che questo tipo di reset vale solo per 
SA 1. Il rese! totale si fa solo con f istru- 
zione PRINT#7, clic comporta, come già 
detto, la stampa dei 4 quadratini. 

Applicazioni pratiche 

Proviamo ora a costruire un cerchio 
applicando i vari sotto-comandi. Premetto 
subito che per costruire un cerchio, occor- 
rono delle conoscenze di trigonometria che 
probabilmente non tutti hanno dato che 
questa parte della matematica viene af- 
front al a solo negli anni terminali delie 
scuole superiori, 

9 anto per cominciare, potete digitare il 
programma di fig. 5 e farlo girare. 

L a parte "matematica’’ è data dalle li- 
nee 100, 110, I2IK 130. 

In linea 100, i numeri 0* 360 e 11) sono 
GRADI, La linea I Iti trasforma i gradi in 
RADIAVI |, usati poi nelle linee 120, 130 
come argomento delle funzioni SI NO 
(SIN) e COSENO (COS). 

Ricordiamo che il t 15 Vt 64 riconosce solo i 
radianti come unità di misura per gli ango- 
li. 

Le linee 10, 20, 30 si occupano del Pa- 
pere ura dei li II associati ai SA numerati 
rem 0, I , 7. 

Le lince 200, 2 IO* 220 si occupano della 
chiusura dei file precederli emerite aperti. 

La linea 40 porta il pennino nel punto 
X— 240, Y 24(1 rispetto alla posizione dì 
HOME. 

La linea 511 (issa la nuova origine {origi- 
ne relativa Xo, Yo) in questo punto. 

L'origine reta li va rappresenta il centro 

% 

del cerchio, I , in altre parole* il pillilo in 
cui mettete la pania dei compasso quando 
volete tracciare una circonferenza. La li- 
nea 151) è la linea principale: traccia i pun- 
ti X* V (dati in 120 e 130) rispetto al cen- 
tro, Per capire la differenza tra "L e 
“D’\ sostituite ‘ir al posto di "A" in IL 
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nea 150; D traccia i punii X, Y rispetto a 
HOME. 

La linea 140 porla il pannino in posizio- 
ne X, V (rispetto al centro) quando rango- 
io è di zero (quindi pennino sollevato). 
Provate a toglierla e vedete cosa succede! 
La linea 170 riporla \ì pennino nell'erigìne 
(centro del cerchio). Per finire» la linea ISO 
fa scendere il pennino di 7 righe rispetto al 
centro e la linea 190 resetta il plot ter. 


Il semplice programma di figura 5 può 
fare molte altre cose. 

Cambiando lo STFP di linea 100 potete 
ottenere tutti i poligoni che volete. Prova- 
te, ad esempio, con i valori 30, 45, 90. In 
linea 120 e Utì, quei *100 che compaiono 
rappresentano i raggi. Per ingrandire il 
cerchio, potete aumentare questi valori fi- 
no ad un massimo di 239, 

Se volete tracciare ELLISSI, i valori dei 


due raggi devono essere diversi tra loro 
come, ad esempio, 100 e 50. 

Per complicare un po' le cose, aggiunge- 
te la linea: 

90 FOR K— 100 IO 10 STEP itì 
165 NEXT 

e variate le lìnee 120, 130 come 
120 X-COS (II) *K 
130 Y=S1N (II) *K 

lj tanca rio Castagna 


10 REM *** TRACCIA AREA UTILE *** 

15 REM *** CON PLOTTER 1520 *** 

E0 OPENW6,l 

30 PR IMT# 1 , ”D " ,0 ^930 

40 PR INTtt 1 , H D“ ,473,398 

50 PRINT#1 /D* ,479,-338 

60 PR INTtt 1 , " D * , 0 , -99S 

70 PRINT# 1 , "D li ,0 ,0 

80 CLOSE 1 

READY * 


Ir 

100 REM *** MAIUSCOLE & MINUSCOLE *4* 

101 s 

120 0PEN4,6 ! REM * INIZI AL. ASCII * 

123 OPENG,G,B : REM * INIZI AL. MA IUS/M1NU3 * 
130 FOR I * 1 TO 2 

140 PR INT#4 , * 1520 PRINTER PLOTTER* 

150 NEXT 

1S0 PR INTW4 i REM * SALTA UNA RIGA * 

170 PRINT#6,1 s REM * IMPOSTA MINUS * 

1S0 FOR I = I TO 2 

190 PRINT#4 , 11 1520 PRINTER PLOTTER” 

£00 NEXT 

210 CLOSE 4 : CLOSE 6 : REM * CHIUSURA FILE * 
READY, 


100 REM *** MAIUS + MINUS *** 

101 : 

120 0PEN4 ,6 l REM * INIZIAL. ASCII * 

125 OPENB ,E ,6 ! REM * INIZIAL. MAIUS/MINUS * 

170 P R I NT I S , 1 ! REM * IMPOSTA MINUS * 

180 FOR I = 1 TO 2 

190 PR INTI4 , " 1520 “F INTER T.0TTER " 5 REM * SHIFT + P * 

200 KEXT 

210 CLOSE 4 i CLOSE 6 
READY. 


64 - Computer Club 



Il pkxitr 1520 



1 REM * DEMO PLOTTER COMMODORE 1320 * 

£ REM * ESEMPIO Sfi = 0,2 ,3, 6, 7 * 

3 t 

10 GPEN4 ,6 t REM * JN12IAL, ASCII * 

20 0PEN3 , S ,3 s REM * INIZI AL P DIMENSIONE CARATTERE * 

30 0FEN2 ,6 r £ i REM * INIZI AL. COLORE * 

40 0FEMG,S,6 s REM + INI ZI AL. MAIUSYMINUS * 

30 GPEN7 , 6,7 % REM * INIZI AL* RESET * 

100 PR INTtt4 tpR INT#4 , "CONO IZ IONI NORMALI* 1 
U0 PR 1 NT# 2 , 1 ! REM * CAMB IA COLORE * 

120 PR INTH4JPR INT#4 , "ORA SONO BLU" 

130 PRINT#2,2 t REM * CAMBIA COLORE * 

140 P R I NT #3,0 5 REM * CAMBIA DIMENS, * 

145 PRINT44 

150 PR ì NT# 4 , " ORA SONO VERDE E STAMPO 30 CAR . PER LINEA u 
160 PR I NT#2 , 3 ! REM * CAMBIA COLORE * 

170 PR I NT#3 , 2 ! REM * CAMBIA DIMENS. * 

180 PR INT44 : PR 1NT#4 , "SONO ROSSO 20 11 
130 PR £ NTH3 r 3 : REM * CAMBIA DIMENS. * 

200 FRINT#4 i PRINTH4 , "MASSIMO 10" 

210 L = L + 1 

220 IF L < 2 THEN FR INTttS , 1 SPRINTASSI tPRINT#a,0 1 GOTO 100 
230 REM * LA LINEA 220 RIPRISTINA IL NERO 
235 REM * E 40 CARATTERI PER RIGA 
240 REM * E PASSA AL MINUSCOLO * 

300 PRINT#7 ! REM * RESETTA IL PLOTTER * 

50© CLOSE 4 : CLOSE 3 : CLOSE 2 t CLOSE G: CLOSE 7 s REM * CHIUSURA FILE * 
READY- 


t REM * CGSTRUZI0I4E CERCHIO * 

2 i 

10 0FEN4 , 6 : REM * INIZI AL, ASCII * 

20 0PEN1 ,6,3 4 REM * INIZIAL. PLOT * 

30 0PEN7 , 6,7 4 REM * INI ZI AL. RESET % 

40 PR INTtt 1 , "M" ,240, -£40 : REM * PENNINO SOLLEVATO * 

$0 PR INTt* 1 , " I " : REM * FISSA 14U0VR ORIGINE * 

100 POR 1=0 TO 360 STEP 10 

110 I I = < 1/180 >*if : REM * RADIANTI * 

120 X=COSC I 1 ) *100 
330 Y=SJN< II)* 100 

135 REM * PENNINO SOLLEVATO SE L * ANGOLO = 0 

140 IF 1=0 THEN PRINTttl ,X,Y 

150 PR INT4* 1 , " J u ,X,Y s REM * TRACCIA CERCHIO * 

1B0 NEXT 

170 PR INTU 1 , : REM * PENNA PELL 1 OR I G I NE < SOLLEVATA ) 
ISO POR 1=1 TO 7 s PRINT#4 s NEXT s REM * SALTA 7 RIGHE 
190 FRINT#7 : REM * RESETTA IL PLOTTER * 

200 CLOSE 4 i REM * CHIUSURA FILE 4 * 

E 10 CLOSE i ! REM * CHIUSURA FILE 1 * 

220 CLOSE 7 ; REM * CHIUSURA FILE 7 * 

READY, 
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Linguaggio Macchina 


Ideile puntate precedenti abbiamo cer- 
cato di fare un po' di luce sulla gestione 
interna del 6502, il microprocessore utili?- 1 
zato dai Commodore 64 (nella versione 
6510) e dal Vie 20. Ma quello che cono- 
sciamo, non ci permette ancora di creare 
programmi di una certa utilità ed interesse 
(o per lo meno richiede particolari sforzi 
ed una notevole quantità di memoria im- 
piegata): si (ratta di approfondire il di- 
scorso relativo agli indirizzamenti. Senza 
nessuna pretesa di riproporre ciò che è già 
stato detto, penso valga la pena di citare t 
4 indirizzamenti che conosciamo: 
•Implicito (AA— TAX) * 

•immediato (A9 00 = LDA #$00) 
•Assoluto (8D 00 04 = STA $0400) 
•Relativo (DO 03 - BNE $+03) 

Questi ci consentono di leggere il conte- 
nuto di una locazione di memoria, di 
modificarla e di eseguire saiti condiziona- 
ti, Proviamo ora a creare un semplice pro- 
gramma che trasferisca sullo schermo m 
certo messaggio i cui valori ASCII sono 
contenuti in memoria. 

Il programma in questioe è quello di fi- 
gura 1 (relativo al C 64, ma identico a 
quello di figura 1 bis, per il VIC 20). La 
parte iniziale (da 1)33 A a 0356) costituisce 
la necessaria inizi al izzazione del program- 
ma, 1] perché verrà spiegato in seguito. 
Successivamente I* accumulatore viene ca- 
ricalo con il contenuto della locazione dì 
memoria a partire dalia quale sono inseriti 
i dati. Quindi il dato (in codice ASCII) 
viene posto nella casella in alto a sinistra 
nello schermo» Le successive due istruzioni 
(À9 00 e 8D 00 1)8) gettano il colore del 
carattere appena visualizzato. Per rendere 
ciclico il programma, si deve adesso modi- 


ficare il low byte dei tre registri che fanno 
diretto riferimento alla memoria ed allo 
schermo (EE 58 03, ecc.) 

Il loop si chiude con un paragone , ne- 
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cessano per valutare il numero esalto di 
caratteri da trasferire» e con un salto in 
caso di mancato raggiungimento di tale 
numero (ED 18 e DO E7). Sì capisce quindi 
il perché si renda necessaria Vi nizi alizza- 
zinne, senza la quale il programma, che in 
pratica si aut (umidifica, non avrebbe potu- 
to girare più dì una volta consecutivamente 
senza ingenerare errori e cattivo funzio- 
namento. 

Il programma non è certo semplice, ma 
gii “architetti" del 6502 hanno previsto ta- 
le evenienza ed hanno dotalo il micropro- 
cessore di un particolare indirizzamento: 
f indirizzamento indicizzato. Vi ritardate 
tJ programma collocato alla fine della pun- 
tala precedente (e qui riproposto in figura 
2 e 2 bis}? »Se V avete provalo, vi sarete già 
resi conto che esegue lo stesso lavoro del 
programma appena descritto in modo piu 
semplice e decisamente più breve. 

Il “cuore’' è costituito dalle due nuove 
istruzioni BD xx Jtx e 9D %\ xx (LDA 
$0000»X e SI A #0000, X); la loro particola- 
rità è quella di sommare al valore assoluto 
che segue l'istruzione stessa il valore del 
registro X (registro ad H bit analogo ad A}. 

Per esempio, supponiamo di avere il se- 
guente programmai 
AZ 05 LDX #$05 

BD 00 04 LDA S04OO,X 

60 RTS 

L'acca mula (ore verrà caricato con il 
contenuto della locazione $(0400 + 05) — 
$0405. Dunque, il registro X viene somma- 
to al valore assoluto» e solo allora viene 
letta la locazione risultante. Analogo ra- 
gionamento vale per 9D xx xx, che» invece 
di leggere, modifica ul contenuto delia lo- 
cazione risultante. 
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Al tutto questo discorso aggiungiamo 
l'incremento e la comparazione del regi- 
stro X con il valore assoluto ed otteniamo 
il programma di figura 2. Due aspetti im- 
portanti da sottolineare sono ì seguenti: 

• IL valore assoluto de Ili udiri /za mento 
rimane sempre lo stesso; quindi il pro- 
gramma non si automodifiM e non ha bi- 
sogno di iniziaiiz/azione. 

• Il 6402 tiene conto anche del riporto, 
vale a dire che, se nel corso del programma 
si supera una pagina di memoria, l' indiciz- 
za /ione provvede a tutto. Esempio: $(7BFE 
-I- 05) dà automaticamete $7CA4* 

Per quanto riguarda il trasferimento di 
blocchi con più di 256 locazioni di memo- 
ria, si può dare un'occhiata al programma 
di figura 3, Esso provvede a trasferire sullo 
schermo le istruzioni Basic ed i retativi 
messaggi di errore. La sua struttura non è 
molto differente da quella del primo pro- 
gramma presentato, pur sfruttando Lindi- 
dizadolK, La differenza è che invece di 
alterare il tow byte della locazione dì me- 
moria interessata, viene fatto variare il 
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Figura A 


10 REM LINGUAGGIO MACCHINA CSIMOhE BETTOLA) 
20 i 

100 PR I NT " iUHF A APPARIRE IN ALTO A SINISTRA" 
110 PRINT "SULLO SCHERMO DEL COMMODORE 64" 

1E0 PRINT "LA SCRITTA 'COMMODORE COMPUTER ** 

130 PR I NT “ CLUB 1 SENZA USARE L 1 IM3IC IZZ AZ IONE * 
140 PRINTCHR* C 14 > 

£00 AD -826 ! AD$ = 82S “ 

210 REAOASì IFVALCA*) <0THEM^R INTAD^i END 
220 X1=ASC<LEFT$<A*, I > > i X£*ASC <R IGHT*C A*, i ) ) 
230 I FX 1 >57THENX 1 =K 1 *55 s GQTQ25© 

£40 XI -XI -48 

£50 IFX2 >57THENX2=*X2-55 i GOTQ270 
260 X2=X2~48 


270 PQKEAD , 
300 DATA A3 
310 DATA 59 
320 DATA DB 
330 DATA 03 
340 DATA SD 
350 DATA EE 
36© DATA 03 
370 DATA 4F 
380 DATA 20 
390 DATA 5£ 
400 DATA -I 
READY - 


X 1 *1 
.04, 
> 03 , 
, 30 , 
. 80 , 
, 00 , 
.58, 
,E8, 
,4D, 
.43, 
,£ 0 , 


6+K2:AD*A0+ 
80, 5C ,03 , A9 
A3, 71 ,80,38 

6 1 .03 , A9 ,00 

60 .03 , AA ,AD 
04 ,A9 ,00 ,8D 
03 ,EE ,SB ,03 
E0 , 18 ,D0 ,E7 
4D,4F,44,4F 
4F, 40, 30, 55 
43, 4C, 55, 42 


1 SGQTO210 
.03 ,SD 
,03 , A3 
,SD ,30 
,7! ,03 
,00, D 8 
,EE,60 
,60,43 
,32,45 
,34 ,43 
,20, 00 


high byte. 

Per riempire lo schermo del Commodo- 
re 64 sono necessari .1 cicli da 256 byte 
fono, più un semiciclo (chiamato di offset) 
da 232 byte (256 * 3 + 232 = 1000) per il 
conto dei cicli viene usalo il registro V 
(analogo ad À e Xh che viene decrementa- 
to ogni 256 byte trasferiti, mentre l'inizia- 
lizzatone si rende necessaria per imposta- 
re i corretti valori negli high byfcs modifi- 
cati dal programma stesso. L'istruzione 20 

p 

xx (JSR xx xx) consente di fare un salto 
ad un determinato sottoprogramma e di 
ritornare ai punto di partenza quando in- 
contra l'Istruzione 60 (RTS), Ma anche 
questi lìmiti possono essere facilmente su- 
perati e vedremo il metodo usato in un 
prossimo articolo. 


Si mio ne Bettol 
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10 REM LINGUAGGIO MACCHINA 

20 : 

100 PRINT’IJBFA APPARIRE IN ALTO A SINISTRA" 
110 PRINT“SULLQ SCHERMO DEL CQI*MOOORE 84" 

120 PRINT'LA SCRITTA 'CON'MOOORE COMPUTER" 

130 PR INT“CLUB ' SFRUTTANDO L'INDICIZZAZIONE" 
140 PR1NTCHR*< 14 > 

200 AO = S2S ! ADS= "jOUSYS S2G" 

2 10 READASi IFVALCA*X0THENPRINTAD*1END 
220 X1=ASC<LEFT*<A*, 1 > > : X2*=ASC <R IBHT*<A* , 1>) 
230 IFX l >57THENXI =Xt -55SGOTO250 
240 X l *X 1 -43 

250 I FX2 >57THENX2=X2-55 : GOTO270 


2G0 X2=X2-48 

270 POKEAO ,X 1 *1G+X2: AD=AD+ 1 IG0T02 IO 
300 DATA A2,00,BD,4D,03,3D,00,04 
310 DATA A3, 00, 90, 00, 03, £8, E0, 18 
320 DATA D0 ,F0 ,B0 ,43 ,4F ,40 ,4D ,4F 
330 DATA 44,4F ,52 ,45 ,20,43,4F,4D 
340 DATA 30 ,55 ,54 ,45 ,52 ,20,43, 4C 
350 DATA 33,42,20,00, -1 

READY. 


ir 


10 REM LINGUAGGIO MACCHINA 
20 i 

100 PR I NT " TAMPA SULLO SCHERMO DEL 
110 PRINT"COFMODORE 84 LE ISTRUZIONI. " 

120 PR^T'BASIC ED I MESSAGG I DI ERRORE ‘ 

130 PR 1 NT “SFRUTTANDO L'INDICIZZAZIONE" 

140 PR INTCHR*C 14 ) 

200 AD=32S! A0*= "MM5YS S2G " 

210 REAOA*: IPVAL < A*> <0THENPR INTAO*i END 
220 X1=ASC (LEFT*(A*, 1 > > i X2=ASC <R IGHT*< A*, 1 > > 
230 IFX 1 >57THENX 1 =X1 -55 * GOTO250 
240 X 1 =X 1 -48 

250 IFX2 >57THENX2=X2-55 ! GOTO270 
280 X2=X2-4B 

270 POKEAO ,X 1 # 1 G +KS : AD =AD 1 sGOTOB 10 
300 DATA A9,04,8D,7B,03,A9,A0,8O 
310 DATA 78 ,03 , A3 ,D8 ,80,30 ,03, A3 
320 DATA 00 ,8D ,77 ,03 ,8D ,7A ,03 ,80 
330 DATA 7F ,03 , A0 ,03 , A2 ,00 ,20 ,76 
340 DATA 03,E8,O0,FA,EE,7B,03,EE 
350 DATA 78,03 ,EE ,80 ,03 ,68 ,D0 ,EC 
380 DATA 20,76 ,03, A2 , £8,20,76,03 
370 DATA CA,D0 ,FA,60 ,BO,00,A0,3D 
380 DATA B0, 04 , A3, 00 ,3D, 00, 08, 80 
330 DATA -1 
READY. 
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Salvataggio/Caricamento 
della Pagina Grafica 



€amitiQ4ur*é4: In p.jsira vista dallalio 


Ejcco finalmente esaudita una delle ri- 
chiesto che mi sono sentito rivolgere da 
parte dì vari lettori. 

Non potete salvare su nastro (o su disco) 
i propri “capolavori", disegnati con le mie 
routine, era infatti un grosso handicap per 
tutti coloro che non conoscono approfon- 
ditamente il Sistema Operativo e la configu- 
razione di memoria del nostro CBM 64. 
Effettivamente, dato che la pagina grafica 
è situata in una posizione particolarmente 
inaccessibile, { rileggete l'articolo sul nume- 
ro 14) E operazione presenta alcune diffi- 
coltà da superare. 

Salvare direttamente tramite i normali 
comandi Basic (OPEN oppure SAVE usato 
nel modo per salvare il contenuto di una 
zona di memoria da voi scelta) non è 
possibile. Infatti la pagina grafica condivi- 
de la propria “casa" con il Sistema Ope- 
rativo e quando cercate di leggere (con 
PEEK o direttamente tramite SÀVE) il 
contenuto delle locazioni in questione è 
quest'ultimo che viene letto. Quindi il va- 
lore “peckato" non ha niente a che vedere 
con il contenuto dalla pagina grafica. L'o- 
perazione inversa, cioè “pokare", invece 
non presenta inconvenienti perché la PO- 
KE è sempre diretta alla R.A,ftL (quindi 
alla pagina grafica) anche se “sopra" c'è 
una K.Q.M. (il Sistema Operativo), 

T? 

fa eco dunque la necessità di ricorrere ad 
una routine in linguaggio macchina che 
“tolga di mezzo" temporaneamente i) Si- 
stema Operativo e renda visibile in fase di 
lettura la sola pagina grafica. Ma se il Si- 
stema Operativo viene disabilitato non è 
più possibile utilizzarne le comode routines 
dedicate alla comunicazione con le perife- 
riche. 

Risolto un problema ecco dunque che se 
ne presenta un altro, Le soluzioni sono 


due: o si riscrivono, con te opportune modi- 
fiche, le preziose rouiìnes di I/O (mi ven- 
gono i brividi solo a pensarlo) oppure si 
trasferisce il contenuto della pagina grafi- 
ca in una zona più accensibile e si riabilita 
il Sistema Operativo. Poiché non sono un 
masochista ho optato per la seconda solu- 
zione. 

Ma dove trasferire S K (circa) di memo- 
ria senza rischiare di invadere io spazio 
riservalo ai programmi in Basic? Natu- 
ralmente sotto la R.O.M. dell 1 interprete 
Basic. 

Questa è mappata dalla locazione 40960 
alia locazione 49151 e non interviene nelle 
operazioni di I/O. Può quindi venire disabi- 
litata senza importanti conseguenze. Que- 
sto trasferimento della pagina ha permesso 
inoltre dì realizzare ( istruzione GRMER- 
GE che sicuramente vi farà comodo. 

I comandi 

Anche questi comandi, come i preceden- 
ti delle routines grafiche, vanno preceduti 
dada solita freccetta (a meno che abbiate 
seguito le indicazioni pubblicate sul n . 16 
per la sua eliminazione). 

GRSAVE 


La sintassi dei parametri è identica a 
quella del SAVE “normale". Esempio: 
GRSAVE 
GRSAVE “nome" 

GRSAV E “nome 11 , n (n= numero di perife- 
rica) 

La pagina grafica viene salvata come un 
file programma. Sia questa che le altre 
istruzioni funzionano sia con il registrato- 
re che con il floppy disk driver, 

GRLOÀD 

Sintassi dei parametri identica al LO AD 
normale. Esempio: 

GRLOÀD 
GRLOAD “nome" 

GRLOÀD “nome", n 
GRLOAD "nome”, n, 1 

[/indirizzo secondario non è necessario 
in quanto la pagina grafica caricata con 
questa istruzione viene SEMPRE messa 
negli ultimi 8 K dì memoria, 

Eventuali disegni presenti nella pagina 
al momento del GRLOÀD vengono irri- 
mediabilmente cancellati. 

GRVERIFY 

Sintassi dei parametri identica al VE- 
RIFY normale. Esempio: 
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GRVER1FY 
GRVERIFY “nome' 1 
GEVERIFY “nome 1 "* n 

La verifica non viene effettuata compa- 
rando la recisi razione con la pagina grafi- 
ca “normale" ma con la sua immagine tra- 
sferita nelle locazioni 40960-48959, Im- 
magine che rimane invariata fino al pros- 
simo GRSAVE o GRLOAD. 

GRMERGE 

Sintassi dei parametri identica al LOAP, 
Esempio; 

GRMERGE 
GRMERGE “nome 11 
GRMERGE “nome", n 
GRMERGE “nome \ n, 1 

Stesse considerazioni di GRLOAD ri- 
guardo l'indirizzo secondario. Questa istru- 
zione consente di caricare dalla memoria 
di massa la pagina grafica e di sovrapporla 
a quella già presente nella memoria del 
calcolatore SENZA CANCELLARE quan- 
to è già presente nella pagina grafica al 
momento del caricamento. Si ha cioè la 
possibilità di fondere le due pagine: quella 
residente e quella caricata. 

Effetti collaterali 

Come ho detto prima, il fatto di disabili- 
tare il Basic non comporta gravi conse- 
guenze ma qualche effetto si può notare se 
l'operazione di I/O viene bruscamente in- 
terrotta. 

Se usate il registratore e premete il ta- 
sto RUN/STOP quando compare la scritta 
PRESS PLAY.» non succede nulla, Per 
fermare l'operazione dovete premere an- 
che RE STO RE* Se invece premete RUNA 
STOP mentre lo schermo è “annebbiato" 
l'operazione viene interrotta ma invece di 
BREAK ERROR a volte viene visualizzalo 
uno strano J ERROR, altre volte le scritte 
cambiano colore e appaiono in minuscolo. 

Con il disco invece, se premete RUNA 
STOP o se viene generato qualche errore 
di quelli che fanno Lampeggiare la spia ros- 
sa si ottiene, generalmente, il cambio del 
colore delle scritte e un incomprensibile 
HRC ERROR. In ogni caso nulla di grave: 
basta premere RUN/SfrOP e RESTORE 
contemporaneamente e il computer toma a 


posto. 

Importante: nella frazione di secondo in 
cui è disabilitato il Sistema Operativo (con 
GRSAVE subito dopo che premete RE- 
TURN, con GRLOAD e GRMERGE alla 
Tine del caricamento) non premete assolo- 
t a mente ìt Listo RESTORE perche otter- 
reste il hlocco del computer. 

SAVE e GRSAVE da programma 

C ome tutti saprete non è possibile effet- 
tuare un'operazione di salvataggio diret- 
tamente da programma. Basta pero una 
semplice PQKF e anche questo ostacolo 
viene superato. 

Prima di ogni SAVE o GRSAVE inseri- 
to POKF 157,0 e subito dopo POKE 
157/128. Esempio: 

KM POKE 157,0— GRSAVE "nome"; PO- 
KE 157,128 


Il contenuto di questa locazione infatti 
viene controllato dalla routine SA VE del 
Sistema Operativo; se contiene 0 significa 
che si è in modo diretto se invece contiene 
128 vuole dire che sia girando un pro- 
gramma e il salvataggio non viene eifet- 
tuato. 

Non ho riscontrato inconvenienti ne! ma- 
dipolare questa locazione,, 

Gli altri comandi (GRLOAD, GRVE- 
RIFY, GRMERGE) possono essere usati 
all'interno dei programmi senza ricorre a 
"trucchi 4 *. 

Il listato 

Non vi resta ora che digitare il listato. 

Se siete poco intraprendenti e non volete 
utilizzare il programma proposto nel n, 16 
per aggiungere questi nuovi comandi alle 
routine*» grafiche, poco male: caricate que- 
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ste ullime e aggiungete in fondo .il listato 
le linee dalla 5000 alla 0600, 

Inserite poi la linea; 

285 GG5UB 5000 
e la linea; 

0700 RETURN 

Cambiale ruttimi) HATA della linea 
2280 da 9 a 13 I indica il numero dei co- 
mandi presenti nella tabella delle parole). 
Di conseguenza dovete cambiare anche 
rullimi) somma di controllo della linea 225 
che passa da 18056 a 18060 (se avete se- 


guito i suggerimenti pubblicai) per avere i 
comandi senza la freccetta la somma passa 
da 18063 a 18967). 

Non vi resta a questo punto che dare il 
RUN e Ì quattro nuovi comandi saranno 
attivali. 

Se invece viete ansiosi di uli lizzare la 
sopracitala routine che abiliti! nuovi co- 
mandi non copiate le linee dalla 5600 alla 
5000 e dalla 0100 a 0600 poiché ì nomi e 
gli indirizzi dei comandi verranno inseriti 


nelle tabelle dal programma, 

Gli indirizzi che dovrete inserire nelle 
"linee comando ” sono specificati nelle li- 
nee dalla 20 alla 50. I nomi, come sapete, 
potete benissimo cambiarli. 

Noia importante; le routines qui propo- 
si e funzionano esclusivamente se sono pre- 
senti in memoria le routines grafiche II 
poiché ne richiamano due subroiilines, 

Con ciò mi sembra di avere detto lutto 
perciò vi fascio alla vostra amata tastiera. 

D aitilo Toma 


£0 REM 

*** 

GRSAVE=5141© 

*** 

30 REM 

*** 

GRMERGE »5 1 46B 

*** 

40 REM 

*** 

GRL0AD=5l47a 

*** 

50 REM 

*** 

GRVER IFY=5 1489 

*** 

60 : 

5000 B — 

0 ; FOR I 

=5 1 380TOS 1 359 : READA i B =B + A : POKE I , A : tsEXT 


5100 IFBOS 4684 THENPRINT* ERRORE hC I DATA DELLE ROLJT INES '* s END 


5600 
5700 
5800 
5900 
6000 
600 ì 
7000 
7 100 
7200 
7300 
7400 
7500 
7600 
7700 
7800 
7900 


B-0 IFDR 1=5 1 1G4T05 1 183 : READA : B-B+A : POKE I ,AShE:XT 

IFB< >1440THENPR1NT ‘ERRORE NE! DATA DELLE PAROLE ‘ s END 

B =0 : FOR I =50 1 80TO50 197 5 READA i B=B+A ! POKE I hCXT 

IFB< > 1082THENPR INT "ERRORE NEI DATA DEGLI IND IR IZZ I * i END 

m 

* 

REM #*** RQUTIf^ES **** 

DATA 163,0, 133 ,£43, 133, 231 , 163,32,168,32 
DATA 34,137,32,88,201, 177,243,36,231 ,143 
DATA 231 ,200 ,208,247 ,230,230,230 ,232,202,208 
DATA 240,32, 103, 137,32 ,36,20 1 ,96,104, 104 
DATA 169,224, 133,250, 169, 160, 133,232, 163,36 
DATA 141 , 197,200,32,160,200,32,212,223,32 
DATA 38,201,162,64, 160 ,131,163,160, 133,234 
DATA 163,0, 133,253, 169,233,32,216,233,32 
DATA 96,201 , 144 ,3 ,76 ,249 ,224 ,96 , 163 , 17 
DATA 208,2 , 163,36,141, 137,200 ,169 ,224 , 133 


8000 

DATA 

8100 

DATA 

se @0 

DATA 

8300 

DATA 

8400 

DATA 

8500 

DATA 

8800 

DATA 

8700 

DATA 

3000 

« 

■ 

9100 

REM 

9200 

DATA 

9300 

DATA 

9400 

E 

9500 

REM 

3600 

DATA 

READY* 


232 . 169 . 168. 133 , 230 , 169 , 0 , 2 * 40 , 2, 169 
1 , 133 , 10 , 104 , 104 , 32 , 212 , 223 , 32,88 
201 , 163 , IO, 162 , 0 , 160 , 160 , 32 , 213,235 
32 , 96 , 201 , 176 , 205 , 165 , 10 , 240 , 10,162 
28 , 32 , 183 , 255 , 41 , 16 , 208 , 13 , 96 ,32 
180 , 200 , 32 , 183 , 233 , 41 , 191 , 240 , 243,162 

29 . 76 . 33 . 164 . 120 . 169 . 254 . 37 . 1 .133 
1 , 96 , 169 , 1 , 3 , 1 , 133 , 1 , 88,36 


* * * * PAROLE * * * * 

3.71 , 82 , 148 , 3 , 71 , 82 , 147 , 3,71 

32 . 149 . 7.71 , 82 , 77 , 69 , 82 , 71 ,69 


**** INDIRIZZI **** 

2 18 , 200 , 16 , 201 , 33 , 201 , 12,201 
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Il Circuito Integrato 6561 


Il mezzo più usato per conversare con un 

% 

computer? Il video. Perché? E il più imme- 
diato- Osservando più computer» accesaci 
si accorge però che il formalo dello scher- 
mo varia da macchina a macchina. 



In casa Commodore, ad esempio, lu 
schermo del C 64 |4(l x 25 > è addirittura 
doppio di quello del VI C 20 <22 x 23). Nel 
VIC 20, a gestire il formato dello schermo 
{e non solo quello) è preposto un integrato 
(Chip), detto 6561 VIC (Video Interface 
Chip) che, piccolo pettegolezzo di corri- 
doio, è stato interamente progettato dalla 
COMMODORE. 

I registri del 656 L 

U 6561 permette che il video faccia da 
intermediario tra utente e macchina. 

Saranno quindi demandale a lui tutte le 
necessarie fun/iotii di controllo: formato 
dello schermo, colore* suono, controllo per 
la generazione dei caratteri e* (ma qui non 
ne parleremo) controllo per paddles e pen- 
na luminosa. 

Per ugni funzione il 6561 usa una hen 
definita locazione di memoria RAM» ogmi- 

't 

ria delle quali prende il nono? di registro. 
Ve ne sono 16 che partono dalla locazione 
3*864 alla 361*79. 

Registro n°l (36864) 

]| suo contenuto normale è 12 Print 


Peek (36864), ma* cambiandolo opporlo- 
riamente, è possibile spostare lo schermo in 
orizzontale, a piacere. Digitale per esem- 
pio questo mini-programma: 

100 ER1N I “CLEAH" POR I — 0TQ 64 
STEP 2: POKE 36864, I: FOR T = 1 TO 
50: mXT: NEXT. 

Il ciclo principale incrementa con passo 
l (ad ogni passo 2 lo schermo si sposta di 
un carattere), partendo da 0 , il contenuto 
della 36K64. Il secondo ciclo è ovviamente 
di ritardo. 

(I risultato è uno schermo che si muove 
da sinistra a destra fino a scomparire del 
tutto. Per riavere lo schermo haltete ades- 



so, come pure per tutti gli altri mini-pro- 
grammi, che saranno tra breve proposti 
RUN STOP e RESI ORE. Si noti che il 
ciclo va da 0 a 64, in quanto il numero 
massimo di colonne, ottenibile da lato a 
lato, è 26, Il ciclo si ripeterebbe allo stesso 
modo anche se si partisse da 128 anziché 
da 0, 

I J a più evidente applicazione pratica è 
quella di centrare orizzontalmente lo scher- 
mo, dopo aver agito opportunamente sui 
registri che ne controllano il formato. 

Registro ti°2 (36865) 

Il suo contenuto normale è 38, e control- 


la la centratura verticale. Digitale questa 
linea: 

160 ERI INI 4 CLEÀR FOR I = 0TO 
(66 STEE 4: EGEE 36865, lì FOR T = 1 
TO 50: NEXT: NEXT. 

La differenza fra i due registri è che 
quest'ultimo si muove a passo 4 anziché 2 e 
quindi ìì ciclo, anche se impostato da 0 a 
255, si ripete ima volta sola. È ovvio che il 
movimento dello schermo può essere inver- 
tito sia in modo verticale che orizzontale. 

Registro n '3 (36866) 

Il suo contenuto normale è 150, Con 
questa locazione di memoria si può ottene- 
re un numero variabile di colonne da I a 
26. 

Prima di tutto, \ à considerato che non è 
possibile avere un formato di schermo che 
abbia un mimerò di byte* superiore a 512, 
a meno di usare opportune modifiche, co- 
me illustrate nell'articolo Scritture a mito 
schermo di Marco Navalesi, apparso su 
C.C.C, n 11 (tenere presente solo ìe linee 
da 120 a 18(1). 

Quindi, se si vogliono avere più colonne 
del normale, ed usando solo i 512 byles 
messi a disposizione dal sistema, bisognerà 
prima diminuire il numero delle righe. Il 
discorso vale anche per l’inverso: più righe 
meno colonne. 

ìì metodo da usare è quello dì aggiunge- 
re a 128 tante unità quante sono le colonne 
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che si vogliono avere sul video (infatti 128 
+ 22 colonne = 15Ó), Colic esempio bat- 
tete questo programma;, 

m PRfM “CLEAIP: POKE 36864,8; 
PO K E 36867,166: POR 1 = m TO 154: 
POKE 36866,1: POR I - 1 TO 1 00 : 
NEXT: NEXT. 

Per prima costi viene spostato tutto lo 
schermo a sinistra. Poi, per avere una cor- 
retta esecuzione del programma, viene di- 
minuito il numero di righe con il registro 
n ,5 4, (che vedremo tra breve) quindi il solito 
deio principale che parte da 129 (128 di 
base + la prima colonna) finn a 154 (come 
si è detto le colonne sono al massimo 26), 

Registro iT4 (36867) 

Il suo normale contenuto è 174, Si è vi- 
sto nell'esempio precedente il modo per de- 
finire il numero delle righe, che è simile a 
quello ora usato. Si deve aggiungere a 1 28 
il numero di righe moltiplicato per 2 (infat- 
ti 128 + 23 righe * 2 174). Rottele que- 

sto programma: 

1M FRINÌ "CLEAR”: POKE 36865,20: 
POKE 36866,143: FOR I = 130 TO 192 
STEP 2: POKE 36867,1: POR T = 1 TO 
100 . 

100 NEXT: NEXT. 

Prima lo schermo viene spostato in alto, 
poi viene ridotto il numero di colonne, e 
quindi il solito ciclo che parte da 130 (128 
dì hase 4 la prima riga x 2) fino a 1 92 (128 
+ 32 x 2), dove 32 è il massimo numero 
ottenibile di righe. K necessario tenere 
presente che it contenuto del registro ri 4 
deve essere sempre pari, in quanto il hit 
N.0 controlla quale tipo di matrice dei ca- 
ratteri deve essere usata. I rifatti quando it 
bit 0 è settato ( 1), la matrice sarà di 

16 x 8, contro la normale 8x8, che si 
ottiene quando it bit 0 è pulito (=0). 

titolo dì esemplò, togliete dall’ultimo 
mini-programma l’istruzione STEP 2; it 
risultato è abbastanza suggestivo: lo scher- 
mo sì muove verso il basso con movimenti 
sussullorii. Questo avviene perché, quando 
il contenuto della 36867 è dìspari, l'altezza 
del carattere ì doppia del normale. Per la- 
vorare in Hi-Kcs/è ovviamente di grande 
utilità agire su questo registro. 

Vogliamo divertirci un po"? Bene, allora 


mantenete in memoria il programma, ma, 
prima di dare il RUM, cambiate il colore 
delio schermo con POKE 36879,9 e toglie- 
te In STEP 2. Visto? Lo schermo si riempie 
di picche e poi torna nero, ripetendosi per 
tutto il ciclo. 
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Registro n ò (36869) 

li suo contenuto normale è 240. 1 suoi 
primi 4 bits (da 0 a 3) determinano lì pun- 
to dì inizio per la lettura del generatore di 
caratteri. Quando non viene alteralo il suo 
contenuto, viene puntato il generatore 
standard, che parte dalla 32768 in avanti 
per 4k ROVI, Tuttavia è possibile cambia- 
re i caratteri del V1C con altri di diversa 
fattura; agendo di conseguenza su questa 


locazione, si potrà puntare al nuovo gene- 
ratore. 

Avendo il VfC solo 3,5K RAM liberi, 
non è possibile cambiare tutti i caratteri 
del generatore standard. Per esigenze di 
spazia è addirittura consigliabile non supe- 
rare 1 64 caratteri che costituiscono un set 
grafico. 

A titolo dì esempio battete questo pro- 
gramma che non genera caratteri nuovi, 
ma semplicemente serve a capire come 
funziona la 36869: 

100 PRINT "CLEAJT; POKE 36879,9: 
FOR 1 = 7168 TO 7679: POKE 1, PEEK 
(25600 ± 1): .NEXT; POKE 36869,255 

110 FOR | = 0 I O 63: POKE 7680 4 - 
1,1 : NEXT: PRINT SPC (255), 

Per prima cosa è utile cambiare il colore 
dello schermo. In una normale istruzione 
di POKE, il carattere viene visualizzato in 
bianco, rendendolo quindi invisibile allo 
schermo base del Vlt\ Poi vengono letti i 
contenuti del primo blocco di 51 2 hytes del 
generatore standard (da 32768 a 33279) e 
trasferiti iteli 1 ultima parte di memoria li- 
bera (da 7168 a 7679). Quindi viene predi- 
sposto il registro ir 1 6 iti modo che siano 
letti i caratteri del nuovo generatore, cioè 
dalla 7168 in poi. L'ultimo ciclo, infine, 
visualizza i primi 64 caratteri, che diciamo 
ride finiti, anche se non è ovviamente vero, 

o ra, però, modificate il ciclo FOR.- 
,,NEX1 delta linea 1 10 sostituendo 63 con 
127. Il risultalo è differente se cambiamo 
il contenuto della 36869 con 24(1 (modo 
normale) e con 255, Con il primo vengono 
letti regolarmente, mentre con il secondo 
solo i primi 64 sono quelli che ci aspettia- 
mo. infatti ricercando gli altri 64 caratte- 
ri, il S O. ia a leggere i contenuti delle 
locazioni da 7680 in poi per 512 hytes (la 
memoria dì schermo). 

Per potere leggere anche il secondo set 
di caratteri, bisognerà modificare il pro- 
gramma come segue: 

100 PRINT "CLEAR”: POKE 36879,9: 
FOR I =6144 TO 7167: POKE L PEEK 
(26624 ± I); NEXT: POKE 36869,254 
1 1 0 FOR 1 = 0 TO 1 27: POKE 7680 ± 
U: NEXT, 

t ome si può notare da queste linee, il 
nuovo generatore dovrà essere "puntato” 
alla locazione 6144. meni re la lettori* di 
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quello standard (sarà sempre da .12768 
{26624 6144) in poi. fe vari alo anche il 

contenuto della 36869, proprio perche que- 
sto registro punta a locazioni ben determi- 
nate. La tabelljna pubblicata spiega come 
operare per ottenere il puntamento (tenere 
presente che ( bils da 4 li 7 della 36869 
devono essere tutti sellati). 


(si parte dallo 0) del secondo sei in 
RE VERSE. 

Registri n*7 (36870) e n'8 (36871) 


Sono i due registri che controllano ri- 
spettivamente la posizione orizzontale (\) 
c verticale (\ I della penna luminosa. 



Hil ' 

V 

1 

0 


Start per generatore caratteri 

(3 

0 


0 

= 246 

32768 (generatore standard R AM) 

1 

1 

1 

i 

= 255 

7 i 68 (generatore RAM) 

1 

1 

1 

H 

= 254 

6144 (generatore RAM) 

1 

1 

« 

I 

= 253 

5126 | generatore R AM) 

I 

l 

É) 

0 

- 252 

4096 (generatore RAM) 


Se in un programma vengono utilizzati 
caratteri standard in RE VERSE e caratte- 
ri nuovi (è solo un esempio), bisognerà 
cambiare tattica. Leggere i contenuti della 
32768 in poi non serve a niente, a meno che 
non si punti alta 5120, allocando lutto il 
primo blocco di 2k del generatore stan- 
dard, Poi però resterebbe IK solo libero. 
Si può invece avere lo stesso risultato uti- 
lizzando solo 51 2 byles, Provale a digitare 
questo programmino; 

100 PRINT “CLEAR : FGR I - 7168 
TO 7679: POKE I, PEEK (26624 + IR 
NEXT: POKE 36869,255 
110 PRINT "BLK HOME ABCDEF- 
GIIIJKLMNOPQRSTUV” 

Per prima cosa vengono ietti i contenuti 
da 33792 (e non più da 32768) in poi. Da 
questa locazione parie il generatore stan- 
dard dei caratteri tn RE VERSE. Questi 
contenuti vengono allocati dalla 7168 in 
poi. La stringa della linea 110 dimostra 
che siamo realmente nella zona R EVER- 
SE, senza avere aggiunto il tasto RVS 
OS. Il discorso vale anche se, invece di 
volere il primo set in RE VERSE, si vuole il 
secondo, È sufficiente sostituire a 26624 
della lìnea 100 il valore 27] 36 127136 - 
7168 ~ 34304 stari per secondo sei in RE- 
VERSE), 

Attenzione, però, la stringa della linea 1 10 
deve essere mantenuta tale e quale. Il si- 
stema legge il carattere “A" (codice 
ASCI ì ) che, per come è impostalo il nuovo 
generatore, corrisponde al carattere n 1 


Registri n 9 (36872) e n tì AG (36873) 

Questi registri controllano invece le 
PADDLES, 

Itegistri dal n°l 1 al n^lS (da 36874 
a 36878) 

Sono registri noti a tutti, die controlla- 
no il rumore bianco ed il volume del VJC. 
La frequenza degli oscillatori viene modi- 
ficata con vnlori da 128 a 255, mentre per 
il volarne con valori da 0 a 15, 

Registro n°16 (36879) 

Questo famigerato registro è comune in 

% 

tutti, o quasi, i programmi. E inutile sof- 
fermarci sulla sua funzione. Nel modo 
normale determina il colore di fondu e di 
margine dello schérmo. 

Àncora sul formato 

Come abbiamo visto io precedenza, i 
primi 4 registri controllano il formato del- 
lo schermo. Supponiamo ora di avere uno 
schermo di 15 \ 15. Va considerato che, 
per il sistema, il numero delle righe ha po- 
ca importanza, mentre il numero delle co- 
lonne può creare qualche problema. (Il si- 
stema operativo deve sapere quando anda- 
re a capo}, C omunque, predisponiamo lo 
schermo con questa linea: 

Hi® PRIVI V LEAR”; POKE 36864,18; 


POKE 36865,52: POKE 36866,128 ! Si 
POKE 36867,128 + 15x2. 

Oramai non ci sono piò segreti, il lavoro 
diventa problematico se in questo schermo 
si vuole scrivere una oppure pio stringhe. 
Come si é detto, il S.O, tiene sempre conto 
che le colonne sono 22. 1! controllo è de- 
terminato dalla locazione 213 che, essendo 
in pagina zito, è in pagina zero, è in me- 
moria RAM. 

Sostituire dì valore 22, contenuto nor- 
male, un numero pari alle colonne volute, 
non serve a niente in quanto, non appetta 
viene attuala la modifica, il S.O. restitui- 
sce 22 alla locazione 213. Bisogna trovare 
un altro sistema. Il piu dinamico è quello 
di usare stringhe lunghe quanto il numero 
delle colonne e separarle tra loro da un 
punto e virgola. 

Ad esempio, continuando con il program- 
mino di cui sopra, aggiungete questa linea: 
m PRINT “HOME ABCDEFCHI.I- 
KLMNO”: PRINT “ABCDEFGHJKLM- 
NO’\ 

Il risultato, se volevamo le lettere ben 
incolonnale, è piuttosto deludente. Ma, se 
al posto dei due punti, mettiamo un punto e 
virgola e togliamo II secondo PRIVI, otte- 
niamo il risultalo richiesto, 

I n altro modo è quello di unire le due 
stringhe in una, ma alla fine, se si devono 
scrivere altre stringhe, l'uso del punto e 
virgola ù inevitabile. Il modo piu veloce è 
sempre quello di usare l' istruzione 1 AB 
(X), Modificate la linea 116 con: 

1 10 PRINT “HOME” TAB ( 0 ) 

' ABCDEFGHIJKLMNO : PRINT TAB 
(23) “ABCDEFGHIJKLMNO \ 

È evidente che prima si devono fare al- 
cuni calcoli, ma P esecuzione e più veloce, 
con un buon risparmio di memoria, pro- 
porzionale al numero delie stringhe. Per i 
calcoli si tenga sempre presente che i! V(C 
considera il 22 come standard fìsso. 

E| Breahoul è un'applicazione di quanto 
sopra detto; c tutto in linguaggio macchi- 
na, quindi lunga e noiosa la sua spiegazio- 
ne. Se avrete la pazienza di digitare i due 
programmi (dovranno essere registrati uno 
dopo l'altro), potrete vedere uno schermo 
modificalo. Addirittura viene usalo uno 
schermo rovesciato, verticale anziché oriz- 
zontale. 
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conseguenze imprevedìbili e non sempre 
coincidami con l'inchiodamento del siste 
ma. 

Il rimedio, in questo caso, consiste nel- 
lo smontare l'apparecchio, rintracciare le 
saldature "sospette" e ripassarle col sal- 
datore, Sconsigliamo caldamente tale in- 
tervento che potrebbe provocare, se affi- 
dato a persone poco esperte di saldature 
con circuiti integrati, corti circuiti con 
conseguenze irreparabili. Affidarsi a per- 
sonale piu che esperto, 

• lì cursore spasseggia'* per lo schermo 
senza ehe sia comandato da tastiera o da 
joystick. Premendo alcuni tasti appaiono 
simboli diversi di quelli raffigurali sui ta- 
sti stessi. 

Tale ] neon veniente compare spesso li- 
ti lizzando, o semplicemente connetten- 
do, alcuni jrvystyck che contengono al lo- 
ro interno un circuito integrato che con- 
sentirebbe, stando alle il i di ia razioni dei 
costruttori, velocità maggiori con video- 
games. Purtroppo abbiamo notato che 
tali accessori generano effetti collaterali 
indesiderati. Come rimedio consigliamo, 
se presenti nelle apposite prese, di stacca- 
re i joy in questione: se il diletto scompa- 
re c evidente che tutto dipende dall'acces- 
sorio, 

» L’unità a diselli (e/o il registratore J ca- 
rica male programmi che in certe occa- 
sioni carica invece al primo colpo. Il di- 
fetto c dovuto in molti casi al fatto che la 
memoria di massa (registratore o drive) 
oppure it solo cavetto di collegamento, si 
trovano troppo vicini al trasformatore di 
alimentazione del computer oppure al 
televisore. 

In questi casi il rimedio consiste nel te- 
nere lontani apparecchi e cavi dal TV 
oppure nel realizzare schermi protettivi 
ricorrendo agli economici, quanto effi- 
cienti, togli di alluminio del tipo di quelli 


utilizzati normalmente nella conserva- 
zione dei cibi, 

Se i rimedi suggeriti rion apportano 
migliorìe vuol dire, ahinoi!, che é neces- 
sario inviare il computer a centri specia- 
lizzati per riparazioni 



Computer con la lebbre 

Li 11 mio 64 si scalda molto. Quale è il 
Umile di sicurezza? 

• Purtroppo la Commodore non ha dif- 
fuso le temperature ottimali di lavoro dei 
suoi apparecchi. Penso, però, che li rife- 
risci particolarmente al trasformatore di 
alimentazione dato che il calcolatore, a 
toccarlo da ogni parte, sembra pratica- 
mente ‘'freddo". 

Per curiosità ho provato a toccare gli 
apparecchi che abbiamo in dotazione, e 
quello che .scalda di più e, come ho giù 
dello, il trasformatore di alimentazione. 
Onusto deve fornire un tepore intenso. 

Se la risposta non li soddisfa tieni pre- 
seli le che una temperatura eccessiva c 
dovuta a surriscalda mento da cortocir- 
cuito. Se, però, fosse staio questo il ino 
caso j] fusibile di protezione si sarebbe 
bruciato: c fatto apposta! !. 

Htlsic 4,0 

□ Che cosa é il Basic 4.0? 

• E una utility che, caricata da disco, 
aggiunge al Commodore 64 numerosi 
comandi aggiuntivi che hanno la stessa 
sintassi del linguaggio usalo nei compu- 
ter Commodore della serie 4000 c 8000, 
In particolare facilita l'uso di due drive, 
rende semplice J’uulizzo di file relative. 


legge la directory senza cancellare il pro- 
gramma ini memoria eccetera. 

Protezione dei programmi 

□ In ehe mini» possa sproteggere i jiro- 
grammi posti in vernili a (pur effettuare 
duplica/, inni)? 

• Siamo a conoscenza ilei vari sistemi di 
s protezione ma non li pubblichiamo per 
motivi di salute: dicono infatti che le pa- 
trie galere siano umide. 

Scherzi a parie, ripetiamo ciò che abbia- 
mo detto più volle: 

• Un discorsi) stille protezioni (e non sul- 
le sprotezioiul è stalo Inizialo sulla rivi- 
sta M icro Pei sonai Computer. 

• Molli spmleltori, che pongono in ven- 
diti! a poche lire programmi costosissimi, 
incominciano ;.i esser raggiunti da de mul- 
ete da parte di software house che si ri- 
tengono danneggiale. 



Caricamenti irregolari co) ] 54 J 

. J V volte il carie amen En ili un program ma 
registralo precedili lemen te su disco ri- 
chiede un tempo monne rispetti) al con- 
sueto e produce un lampeggio del LlvfX 
Come mai? 

• Anche i drive, come i registratori, 
hanno problemi di alimeli memo delle le 
siine di kTtura/suriimra. Sono fortuna 
la mente, casi infrequenti, Prova a tener 
lontano il tuo drive dal I V oppure verifi- 
ca che lo sportellino si chiuda concila- 
mente. Su, intani, il difetto lamentato 
scompare Lenendolo premuto durante la 
fase ili caricamento, c probabile che la 
molla di chiusura sì sia allumata 
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Ti assicuri, comunque, di verificare i 
programma subito dopo averlo registra' 
lo? Spesso il difetto lamentato si verifica 
con file non allocati correttamente su di- 
sco a causa di una cattiva registrazione. 


Programmi troppo protetti 

□ Col Commodore 64 carico normalmente 
programmi non protetti e con gran diffi- 
coltà quelli proietti Come mai? 

• Purtroppo alcune protezioni di cui so- 
no dolati certi programmi hanno effetti 
collaterali indesiderati come, appunto, 
anomalie di caricamento. 

Se sei certo che il difetto non c dovuto 
ad un cattivo allineamento delle testine, 


alla vicinanza dd trasformatore o del 
TY\ purtroppo non dé nulla da fare. 

Conversione da L.M. in Basic 

□ E possibile convertire automaticamente 
un programma scritto in Linguaggio Mac- 
china nel linguaggio Basic? 

• Assolutamente no. Un listalo L.M, c 
infatti composto da una moltitudine di 
istruzioni elementari tra cui molte istru- 
zioni di salto a subroutine in cui, spesso, 
vi sono altri salti ad altre subroutine* 

Un programma che converta automa- 
ticamente dovrebbe tener conto di troppe 
situazioni particolari occupando, di con- 
seguenza, considerevole spazio in memo- 
ria. 

Solo ricorrendo a notevole pazienza c 
possibile, c non sempre, studiare il disas- 
semblalo dd programma e cercare di ot- 


tenere lo stesso “effetto" di segmenti di 
programma ricorrendo ad istruzioni Ba- 
sic. 


Compilatori 

□ Che cosa c un compilatore? 

• Un compilatore é un particolare pro- 
gramma che esamina un listalo Basic e lo 
trasforma automatica me nk- in Linguag- 
gio Macchina. L’effeito che ne deriva e 
un aumento della velocità di esecuzione 
nei casi in cui il Basic presentava notevoli 
limiti 

In commercio esistono due compilato- 
ri: il Pelspeed e rAusirospccd, entrambi 
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funzionami koUicoI Commodore 64 usa- 
to insieme col drive 1541 

Il loro funzionamento é relativamente 
semplice: si registri) il programma in Bn 
sic da compi lare sul dischetto clic colute- 
ne il compilatore ed in seguito, Fatto pai 
lire quest 'ultimo, si seguono le istruzioni 
die compaiono a mano a mano sul video. 
Mia Fine del l'intera procedura (che dura, 
a seconda dei casi, un tempo non minore 
di un quarto d'ora), sullo stesso dischetto 
verrà creato un Fi le- Programma che 
rappresenta tl risultalo dell'eia hora/foric. 

Questo l i le può essere caricalo come 
un qualsiasi programma Basic ricorren- 
do ai l'istruzione LOÀD e può essere ira 
sportato anche su cassetta. Per il mio 
funzionamemo, infatti, non è pm neces- 
sario il programma compilatore, mi lizza- 
to* del resto, nella sola fase di creazione. 

I programmi compilati si individuano 
laeilmenté perché, digitando I 1 S II . ap- 
pare semplicemente SYS(XXX): NOMI 
in cui NOMI, c il nome commerciale del 
programma che ha generato il file 



Istruzioni SYS 

□ Posseggo programmi tool tu lunghi da 
caricar!', ma costituiti da una sola istru- 
zione: NYS(N) in cui N è un numero che 
non é sempre lo stesso, < he cosa fa esat- 
tamente S'fcS, dato che lo Iruvu in motli 
programmi Basic? 

• Il comando S'tS conumiea al compu- 
ter che deve "abbandonale' 1 tl linguaggio 
Basic ed operare direttamente in Lin- 
guaggio Macchina tenendo conio che la 
prima istruzione da eseguire c contentila 
nd byte il cut indirizzo c indicalo tra 
pj re illesi. 

Il Linguaggio Macchina c un linguag- 
gio difficilissimo da interpretare perche 
lavora interagendo in modo diretto col 


"cervello" del l'elaboratore. 

Se, dunque, un programma richiede 
molto tempo per il caricamento ed é 
formato da una sola istruzione SVS. il 
listato vero e proprio é scritto in l M. e, 
di conseguenza impossibile da listare per 
il semplice motivo che... non cc (in 
Basic). 

I n programma particolare, delio Di- 
sassembler, facilita I 1 interpreta zio rie ma 
richiede, come puoi intuire, la conoscen- 
za approfondita del linguaggio c del si- 
stema operativo dei calcolatore. 



Àut ostar! 

□ L possibile far partire un programma 
non appena viene caricato da cassetta? 

• Premerne tl tasto Stufi insieme con 
Run/Slop si ottiene rettelo» che cerchi 
Se invece desideri che il tuo program- 
ma parla anche senza questo accorgi- 
menti?, n consiglio di leggere la rivista 
Micro & Personal Computer su cui viene, 
da un po' di tempo, trattato il teina della 
protezioni' dei programmi. 



* « 


1 urlio lupe & dintorni 

Programmi caricali eoi turbo tape 
richiedono lo spegnimento del In macchina 
per interromperli e caricare a li ri pro- 
grammi, ( 'è un sistema che eviti ^«spe- 
gnimento c il ricarica mento del I urbo? 

• Il problema non è del turbo tape ma 
del sistema di protezione di cui soli dotati 
i p rog ra mini Coni m c re tali. 

All'inizio di tali listati, intani, sono 
presemi particolari istruzioni che inìbi- 
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Acri* .óan per Computer 


Cavo prolunga 

Un paio di cavi di prolunga ognuno di due 
me E ri di lunghezza da usare per pysticks. 
[rack -ball, padelle s ed alto. Il prodotto può 
essere usato per Atan VCS. 2600. 400. 800. 
Inteilevision il Commodore 64, Vie 20. Nec 
Panasonic, Texas Instruments e tutti gli altri 
sistemi compatibili 
Art. Nr. D8109, Prezzo lire 9 600 



Joystick “ corri p etiti on chief ’ 

Joystick robusto e preciso con ventose, dota- 
to di quadro pulsanti di sparo. 

Art Nr. D8000. Prezzo lire 18.400 



Joystick “competltion prò" 

Joystick robusto e preciso con due pulsanti di 
sparo, Uno sparo continuo e uno normale. 
Questo joystick è véramente come uno dei 
video giochi di Arcade 
Art. Nr. D6G5G18 Prezzo lire 38.900 



Presa multipla 

Servendosi di un le te visore come video per il 
computer sara sufficiente usare lo 
interurtore/multipla per evitare, tutte le voile 
che si vuole variare l'utiiizzazrone def televi- 
sore di staccare o riattacore l'antenna. 

Art. Nr. D599513 Prezzo lire 8.750, 



Foratore dì mini floppy 

Usate anche l'altra taccia del vostro dischet- 
to. dimezzando il prezzo del medesimo. Faci- 
le da usare. 

Art, Nr. D599156. Prezzo lire 12.700 


Mini floppy 

SF/OD X 10 Prezzo lire 3.800 cadauno 
DF/DD x 10 Prezzo lire 5 500 cadauno 
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scono il funzionamento dei tasti Rim/ 
Stop è Resto re in modo da evitare intera 
ruzioni e possibilità di copie non auiori/Ki- 

le, 

L’impossibilità di interrompere un pro- 
gramma c pratica mollo dit i usa anche in 
programmi normali, non ^iurbi 7 , 7 atì’\ 



Memoria a volontà 
□ Che si intende coi termine: "fissare il 
Top di memoria”? 

• Supponiamo, tanto per semplificare, 
che il tuo computer abbia, appena acce- 
so, una quantità di memoria RAM pari a 
1 0000 byte. 

Volendo caricare un programma lungo 


3000 byte sembrerebbe che, dopo l'ope- 
razione, restino a disposizione 7000 byte 
f 10000-3000), Non dobbiamo, però, di- 
menticare che quando il programma vien 
l’atto girare, nella maggior parte dei casi 
vengono dichiarate matrici (DIM), va- 
riabili intere (come lì = !()). variabili in 
virgola mobile (come A - 56,5404), Ogni 
variabile sottrae memoria RAM pari a 
sette byte mentre per le matrici si seguo- 
no calcoli diversi. 

Per renderli conto di ciò che segui quan- 
to ti dico: 

• Accendi il computer e prendi nota della 
quantità di RAM presente. 

• Carica un qualsiasi programma in Ba- 
sic e prendi nota della quantità di RAM, 
rimasta dopo tale operazione , con: PR I N I 
FRE (0), 

• l ai partire il programma (RUN) e, ad 
un certo punto, interrompilo con Run/ 


Stop e digita nuovamente; PRIMI FRR{0). 
Ti renderai conto che la quantità è mino- 
re di quelle precedenti. 

Sembrerebbe, a questo punto, che il 
numero di byte liberi possa esser calcola- 
lo tenendo conto dei byte occupati dal 
programma, da quelli occupati dalle ma- 
trici e da quelli occupali dulie variabili. 

Purtroppo non é cosi perché, per mo- 
tivi che non sto qui a dirti, tutte le volte 
che vengono elaborate variabili stringa, il 
calcolatore utilizza la parte di memoria 
RAM ^eccedente”. 

Ciò vuol dtre che se trascrivi alcune 
informazioni (come una routine in L.M. 
da richiamare mediante S\ S) in una zo- 
na che ritieni libera, il computer, a mano 
a mano che elabora le siringhe, può tra- 
scriverle in quelle locazioni alterandole 
in modo irreparabile. Per fortuna c’c un 
modo per riservarsi una zona RAM e 
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renderla inattaccabile dal Sistema Opera- 
tivo del computer: consiste net f issare il 
tetto massimo della memoria RAM 

Il calcolatore, infatti, elabora k sirin- 
ghe tenendo conto clic la memoria prò 
sente é tutta quella disponibile al mo- 
mento dell’accensione dell’apparecchio, 
ti però possibile “ingannare*’ il computer 
facendogli credere che la memoria RAM 
c più esigua alterando due puntatori che 
prendono, appunto, il nome di I op ()1 
Memory. Questi sono rappresentati dal 
contenuto delle locazioni 55 e 56 modifi- 
cabili a piacimento mediante istruzioni 
POKE. Se digiti, non appena accendi 
l'apparecchio: 

PRINT PEEK(56): PR1NT FRE(O): 
POKE 56,20: CLR- PRIN I I RE (0) ot- 
terrai due risposte completamente diver- 
se. Tranquillizzati, però. La memoria 
RAM é sempre li, al suo posto, solò die il 
Sistema Operativo non la “vede" c, di 
conseguenza, non la altererà nelle sue e- 
la bo razioni. I ovvio che puoi inserirvi 
ciò che vuoi ma tieni conto che i pro- 
grammi basic che puoi ora caricare son 
più brevi. 

Benché su perii un. ricordo che 55 con- 
tiene il byte basso e 56 il byte aUodciPirt- 
dirizzo dclPu liimo byte libero a disposi- 
zione del S.O. Por esempio con: 

POKE 55,30: PORI 56 Jl): CLR 
Ea memoria Ubera, a tua completa dispo- 
sizione, è quella che “parte" dai byte il 
cui indirizzo é dato dal calcolo: 

304 10*256=2590 

Un ultimo consiglio: tali ulte ni zio ni ef- 
fettuate prima di caricare un programma 
oppure come prima istruzióne del pro- 
gramma stesso, l i consiglio, comunque, 
di rileggere il NI. IO di C.C.C. (Un po' 
d'ordine ira i hit}. 


Operatrice elettronica, esperienza 
biennale su personal computer*, pas- 
saggio diretto per zone Milano Sud - 
Telefonare ore pasti: 039/649553 - 
Chiedere di EGLE. 


Duplicatore di cassette 

□ Alcuni lettori hanno avuto difficoltà a 
procurarsi il duplicatore di cestelle pre- 
sentato sul N. 15 di C*C.C. Altri, Invece, 
che hanno chiesto per posta l'accessorio, 
si son visti recapitare un altro 
apparecchio. 

• [| duplicatore di cassette provato da 
Commodore Computer Club c commer- 
cializzato dalla Ditta R C.P. Elettronica 
Srl Via Don Pasquino Borghi, 13 cap 
42017 Nove 11 ara (Reggio E.) Tel, 11522/ 
661471. 

La stessa Ditta figurava, come inser- 
zionista, a pagina 6 dello siesso fascicolo 
di C CX\ proponendo, però l intcrtac- 
eia per adattare ben due registratori 
qualsiasi ai computer Vie 2(1 c Commo- 
dore 64, 

Dalla fotografia della pubblicità, dal 
tagliando che era necessario compilare e 
dai disegni che cor teda vano l'articolo in- 
criminato, il lettore avrebbe dovuto capi- 
re che si trattava di due accessori COM- 
PLETAMENTE diversi, 

A coloro che hanno telefonato per co- 
noscere il nominativo della Ditta che 
vendeva l'accessorio abbiamo specifica- 
to quanto detto in queste note. 

L'unica colpa (se tale sì può definire) 
della Ditta R.C P consiste nel fatto di 
aver individuato nell'interfaccia, più che 
net duplicatore di cassette, l'oggetto più 
idoneo da presentare ai lei lori della 
rivista. 

Videogame 

□ Esiste un catalogo generale ili giochi per 
il Commodore 64? 

• No. Vi sono infatti molle ditte, in con- 
correnza tra loro, ognuna delle quali 
mette però a disposi/ione del pubblico 
un catalogo completo Rivolgili a negozi 
specializzali in personal computer: trove- 
rai dì certo ciò che cerchi 

Alessandro ile Sì mone 


Nuovo corso rapido di 

PROGRAMMAZIONE 
BASIC su 

MICROCOMPUTER 



Scelga il Corso a le piu adatto 

PROGRAMMAZIONE, 
BASIC E MICROCOMPUTER 


* per il cammei dorè OE4 

m per il coiremo clor-e VIC 20 

* per il rancidir- ZXSpectrum 

* per il sinc:l^ir~ ZX81 

i — i 

In sole 14 dispense lei imparerà a. dia- 
logare con il computer sviluppare pro- 
grammi da solo, modificare quell esi- 
stenti, creare grafici in movimento, ca- 
pire l'informatica sul suo calcolatore, 
confrontare il BASIC con altri linguaggi 
(COBOL, FQRTfiAN, ecc.j e gGdrà del- 
l'assistenza gratuita dei nostri esperti. 


LA 1* DISPENSA IN VISIONE 


Chieda subito, in visione gratuita e 
senza impegno, la 1* dispensa più 
adatta ai suo computer. La riceverà 
compieta di documentazione e solo 
per posta raccomandata. 

Cosi potrà toccare con mano la bontà 
del metodo I5T e decidere in assoluta 
libertà. 

Sfrutti questa occasione e spedisca 
oggi stesso il nostro tagliando 1 
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Computer Cfub - 79 






COMPUTER 


5 


PRODOTTO 


PREZZO 
(IVA ESCI.) 


VIC 20 


HOMI COMPUTER 

Memoria base 5 Kbytey 255 camb-nazioN di catari 1 vao. BA$SC res ■ 
dente s i col lega d a nenie o quolsics 1 ;- televisore dofr-tìsrico. 


199.QG0 


COMMODORE 16 


HOMI COMPUTER 

Memo'ip □ 16 FCbytesRAM standard, 1 2 Kbytes RAM oceetsiblU per pto- 
gr amali -r« BA5lC BASIC 3 5 residente 521 colobi 1 1 S d- baive con 6 grò 
dancni + I neroi Cgflegab e q un cornane teteyiwre 


COMMODORE Ó4 


CPU 64 K RAM 

Computai con olio risoluzione grotica, 256 CtìmblnauOni lì catàrr, iihte 
iitzatàn dt suono Possibilità di creare «coenonol- figure irdifriÈnsiondl 
dinamiche Ispn-r^s . Tasserà grafico Dirnen siane della schermo 40 co- 
lonna pé<25 ngha. Cornptilibrte con tulle le per-f etiche Ca mmpcipfe- Col- 
tegobil* p ^rtcomgn* le^yisore 


245.000 


625.000 


C 64 EXECUTIVE 

sgIo e ianloslico computer portante dello seconda generazione Mon* 

■ or a colon di 5" jd allo risaltizipne grafico e Flop-py Dà* Drive da I 70 
Kbytes IhCOrpOrali! Tastiera grafica separabili suono profe 5®ÌQn<jle e 
o'npFera corti pati biHlà eoa 1 programmi e le periferiche del Commodore 
6^ ne fanno un compuier dai mille us*. Può inerì ire Lffihrao re tutte te carter: - 
•■ ^ C 64 e può «ss aie col legato al monna r 1 702 


COMMODORE PLUS 4 


2350.000 


PERSONAL COMPUTER 

Memoria te Kbytftf. RAM, 60 b/tesK RAM QCOeSSJbJl per urograrrur,. IH 
►ÌAf:iC SA5IC 3 5 residente T21 cobn ;16 d' bove con fi- -gradazioni. 4 
programmi software resKienn su FÌOM CoHegobite 0 un comune Musane 


COMMODORE 8000 


PERSONAL COMPUTER 

CPU l?fi tfbyteì. RAM, 24Kfc>ytes ROM Basic 4 0 rewitrMe. videa 
.net l'abile v basculante 80 cotenna per 25 ricjhft. ta&befo corrimeli ole 
separata Saftwate eompalibife con ÓBM 803? e CflM HÙ96 


975.000 


996.000 


COMMODORE 700 


PERSONAL COMPUTER 

CPU l?fi. Kb/es. IR am espandibili inremamen te a 756 Kbvles ad este-i- 
n'ir nenie u 96QK Vide* oneri tab: te e bov: u tinte. SO cotenne per 75 
righe C ompolibite con I ultf^ le penfflfiche CDmmDdoie delle sene prò 
te'iSiOnale 


2 850. 000 


PERSONAL COMPUTER 

■ PU J5ò Kbyps RAM espandibili fi strv no menre q 960 Kbytes Video 
orientabile basculante tìO colonne per 25 righe CompoHbtle con luffe 
p perite 1 < ■!<.- Commodore delle :eno pratessio'-ae 


3 J50 000 



PERIFERICHE 


PRODOTTO 

COMPUTER 

COLLEGABILI 

PREZZO 

LIVAE5CL.) 

1 MONITOR 2 


MONITOR MONOCROMATICO 

A fosfori verdi 12“ 

VFC 20,C 16X64, 
SXM, PLUS 4 

285 000 

MONITOR A COLORI 

Ad al la i rsal uziane, \ 41 " „ con audio 

V6C 20X16X64. 
5X64, PLUS 4 

690.000 

■ registratori il 


REGISTRATORE DEDICATO 

Per memorizzare facilmente programmi e 
doti s u nor m oli cosselte magnel icn e 

VIC 20X 64, 

120.000 

REGISTRATORI DEDICATO 

Per memorizzare facilmente programmi e 
doti su nomndi cassette magnetiche 

C 1&PUJ54 

120.000 

■ MEMORIE Di MASSA | 


FLOPPY DISK DRIVE 

Unito di memoria di mossa, drive singolo, 
capacità l7GKbytesinlirwa 

VIC 20X16X64, 
SX64, PLUS 4 

630 000 

FLOPPY DISK DRIVE 

Untò ài memona ài massa, drive doppio, 
capaci tà 1 Mbytès in linea 

C 80335K, C 8096, 

C 0296, C 710, C 
720X610X620 

2.375.000 

FLOPPY DISK DRIVI 

Unità di memona di massa, drive singolo, 
capacità t Mbytes in linea 

C 8032SK, C 8096, 

C 8396, C 710, C 
720X610X620 

1.245.000 



INTERFACCIA 
REGISTRATORI 
A CASSETTE 


PER VIC 20 E COMMODORE 64 

Adatta tutti i normali registratori a cassetta ai 
tuo computer. Ti permette di duplicare i pro- 
grammi da un altro normale registratore. Con 
sole 34.000 lire I.V.A. e spedizione compresa 
potrai ricevere direttamente a casa tua questa 
indispensabile interfaccia, inviando il buono di 



80 - Computer Club 













Registrate il mio abbonamento annuale a Commodore Computer Club, 


Ho versalo oggi stesso i\ canone di L 22 000 a mezzo c/c postale n° 31532203 intestato 
a: 

Commodore Computer Club - V ie Famagosta, 75 - 20142 Milano 


• i r r p r *■ B ■ a ■ r - - • *■ — - •* » ■ j .« - j j i . j a ■ l a j ■ ■ ■ r ■ e 1 > r t f ^ r ■ i 4 H i i t 


□ Ho inviato oggi stesso assegno bancario n...... — 

per I importo di L 22.000 intestato a Commodore Computer Club 
Si prega di scrivere il proprio nome e I indirizzo completo in modo chiaro e leggibile Inviare 
la fotocopia del bollettino di c/c postale 


Consideriamo che i numeri 1 e 2 sono esauriti, vogliate inviarmi i numeri arretrati 

al prezzo di L 5.000 cadauno per richieste fino a 4 numeri, o di L 4,000 cadauno per 

richieste oltre i 4 numeri arretrati, e perciò per un totale di L... Sono a conoscenza che 

i fasciali suddetti non saranno inviali in contrassegno e, pertanto, ho provveduto oggi stesso 

a versare il canone di L... a mezzo c/c postale n. 31 532203 intestato a 

Commodore Computer Club - V le Famagosta, 75 20142 Milano 


STATISTICA 


Non posseggo un computer [ 

Posseggo un C64 

Posseggo un VJC 20 

Posseggo un Commodore Plus 14 

Posseggo un Commodore Plus 16 

Posseggo un registratore dedicato „„ 

Posseggo un drive 1541 

Posseggo una stampante 

Posseggo un monitor 


i !■■(• i ■ ■ ■ m ■ ■ n n n ■ ■ i ri ini i rr - p 


IIKfHtM* * ■ ■ ■ ■ “ 4 f mamma 


4 • ! il» nani ■ n m i 
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si 
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.. no 

□ 

si 

□ . 

no 

□ 

si 

□ 

.. no 

□ 

si 

□ . 

.. no 

□ 

si 

n 

.. no 

□ 

si 

□ „ 

no 

□ 

si 

□ , 

. no 

□ 

si 

□ . 

.. no 
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COLLABORAZIONE 




A titolo di prova vi invio un articolo e la cassetta ....disco. 

col programma che intendo proporre per la pubblicazione di cui garantisco l'originalità. 


DOM ÀNDA/RI SPOSTA 


i p p p i ppH p-iiklH !■ M ■ i ■ « - - p 4 + f ■ » ** ■ 4' B P #■ *■ ■ ■ 4 * P ■ 4* P B ■ * ■ B ■ niirjH if rnif utfiiriH krttkMf ■* ■ ■■■ 
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■ 11 i ■ i » li ri 4 BBSB+4-B-4 ■ IH « « 4 hciiamiap ■■■•■■»niai i Biai-fcan-rnt r 4 4 »■ 6 4- 4- * ■ 
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■ «P4«ltHk M § * ■ 4 kBk + P iJ 4k * 4- • M 44 ■ I k « * ■ 4 B I 4 P P P 4 4 R R 4 P ■ ■ I 4 ■ 4 8" ■ ■ ■ « ■ * i •■»■! i » 
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RICHIESTA ARGOMENTI 



Mi farebbe piacere che Commodore Computer Club pari asse piu spesso dei seguenti a 

argomenti: m 

V . . « . ■ 

« 

21 ■ 

a 

3/ ■ 

■ 

4/ ■ 

1 

GIUDIZIO SUI PROGRAMMI DI QUESTO NUMERO m 


Ho assegnato un voto da 0 a 10 ai programmi che indico di seguito: 


A/ — * . Volo 

B/ — Voto 


« 

■ 

■ 

a 

a 

a 

a 


Ci Voto „ • 

■ 

0/ — Voto * 

| 

PICCOLI ANNUNCI R 


■ 

■ 

■ 

■ 


■ 



INVIARE IN BUSTA 
CHIUSA E AFFRANCANDO 
SECONDO LE TARIFFE VIGENTI A: 


COMMODORE COMPUTER CLUB 

V.le Famagosta, 75 
20142 Milano 
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INVIARE TUTTA LA PAGINA ANCHE SE SI UTILIZZA UNA SOLA SCHEDA 







L’esperienza insegna. 

La richiesta di corsi d'informatica cresce ogni giorno * li piu. Ma non basta conoscere bene i! computer per saperne 
insegnare l'uso ad un pubblico tanto ansioso d’apprendere quanto privo di qualsiasi nozione di base in materia. 

Nè la sola esperienza didattica è sufficiente per entrare in questo settore. Così, Incalzato dalla domanda, 
anche tu che non vuoi rispondere con un insegnamento insufficiente o improvvisato, probabilmente sei alla ricerca 
d’uria metofogia provata e sicura, di una manualistica coerente e completa, di sussidi audiovisivi e schemi dì lavoro. 

Computer School h possiede una solida, ìangibtee acaudata esperienza d'insegnamento dell'informatica e ti dà lutto questo, 
insieme al know-how ed al supporto necessario perché anche tu possa entrare con successo in questo promettente mercato. 
Inoltre, consentendoti di presentarti agli utenti potenziali con il suo marchio e là sua insegna, ti offre un ulteriore vantaggio: 
beneficiare d’una possente azione pubblicitaria sulle p>ù diffuse e prestigiose pubblicazioni del settore. 

Se perciò vuoi essere la prima Computer School deila tua città non esitare a contattarci. 



Franchising per insegnare. 


20090 Trezzano S/N (MI) - V,Ie C. Colombo, 49 - Tel. (02) 4454352/4459252 









MEE • Memorie per Elaboratori Elettronici S p A 

Forni lune p*r Centri Elaborazione " -r 
Sede Amm va: 20144 Milano - Via Bon 
Tel 49ae54i \4 inee ra.i Telex 324426 VE E 
fi! ali e Aqenr e. Milano Bergamo ■ Torino 
Biella - Padova ■ Parma - Bologna Firenze Ar i 
Roma ■ Napoli Catania ■ Oristano ■ Bari ■ Gene - - 
Boi za no - Mesi re 


High precision Data Memories 

é tecnologia avanzata di costruzione. 

È iJ supporto magnetico testato ai limiti 
della resistenza con garanzia di assoluta 
affidabilità, 

É avanguardia tecnologica per assicurare 
la massima protezione dei dati, 
anche, nelle situazioni più critiche. 


HIGH PRECISION A COLPO SICURO! 



